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^ *333*3 3***3* *33**33 3333 33 3* *3 3* ****** ****************** *********** s< 

995 Ml =1 

CAM. FI. ST IF 1 A(M] ) ,MUMnV,MIIMFI. , 1 1 » 1 ? ,11?) 

(■]** 3 *** 3**33 ****** ******** 3 ***33*************>?******3* 3 ******** **** ** 3 **M A 1 M? 1 60 

f FflRM SlIUir.TIIKAI. STIFFMFSS AMO I.PAP VFC1PPS AMO WR 11 F PM UNIT I ] 0 MAIM?170 

0 33333*3*3*3333* * * * * * * * * * * * * * * 3 * 3 * * * * *********************************** ^ j N? 1 RO 


MAIM? 1?0 
* 3 3 3 M A I M ? 130 
MA 1 M? 1 AO 

MAI M? 150 


MF?R=?*NFOR 

M0?=M1 +mf?r*mramo 
M n3=M0?+MF?R *|.l 
M3=( Mn3- 1 ) #? + l 
M4=rM3 + A3l.|. 

I F( M/, ,CT .M TP 1 ) CAM. FPRflRC N4-M1PT ) 

CAM. ApHSlFl AP(N] ) , A II (NO? ) • A (AM ) ,MI1MF| 

1 11 • ! ? • 1 Q f 1! O • It ? 1 

f* *********************** * * * * * 3 * * * * ************* * * * * 

r (JPI.VF FPR HISPI. Ar.FMFM J UNKNOWN* 


MA I M? 190 
MA IM??()n 
MA 1 N?? 1 0 
MA ] M?? ?0 
MAIN?? 30 
MAI N??40 
MA I M??50 

MA 1 M?? AO 

: * * 3 3 3 * 3 3 * 3 3 3 3 ****** M A I M? ? 70 
MA I M?? RO 


MHI.PCK,MF?H,I.I. •MRANO, 


(^ ************** * * ft * * ft ft ftft ft * ft *3*3: 

NSR = ( MRAMll + l.l. )*MFnn 

N?sMl +MFPR 
Mp? = M?/? +1 
MR^sMIV+MSR 

CAI.I. Iisni. { A( M 1 ) , A0( Mil? ) , 
1 T o , 1 ? . 1 >•' ) 

C PP?M1 MPDAI 111 5PI.ACFMFN1 9 


'3333 3 33 33 3 333*33333333333333 3 3 *333333 3 33 MAIM?? 90 

MA \ M? non 

MAIM? ?10 
MA J M? 4?0 
MA 1 N? 33 0 

AP( MM3 ) , MFOR , MR AMI) , M. , MRLPCK ♦ M SR * 110,1 3»MA IN? 340 

M A I M? 350 

****** ************************ * * ******** f., A j M? 1A(I 

MA | M? 3/11 


!: ************ 
M? = M| +MIIMMP* 


i- 3 3 3 3 3 3 3 3 3**3 3 3 *33# * * 3 33*33 


*3333333333333 3 


5 s 3 3 3 * 3 f», A I M? 4 MO 
MA I M? '490 



N1=M? + A*H. 


MA I M? 400 


^sM1/?+ 1 

URTTF( !W,?nn/. ) IMF S M 

r.AI. I. PRTMinC A (Ml )« A(M7) * AIM MR? I • MFOH • NIIMNP , LI. , 

1 nrl nr.K *NFn*i?*iR*jw,i v kprint) 


MA ! N? 41 0 
MAIW?4?0 
MAIN? 430 
MAI M? 440 


C*#** 
C 

f * 


r.nMPIITF STRFSSFS ANf> CARRY PHI FIII.I.Y STRFSSFO l)F S I GN MA]M?480 

•C PM PI 11 F r.FnMFTRIC SI 1 FFNF SS MA1RIX AMD MR II F MM UNIT 13 MJN7470 


Ml sl 

M?»Ml +M||MnV 
M?=M?+ NMMDV 
M] =sM3 + NI IMHV 
M?sNl 4 4*1.1. 

MH?=M?/?+l 

N?=(MP? 4MFMR*|.M *7+1 
l_P*( M TP T -M 3 ) /WFP 

IF (l.n.GF'l r GO TP 3 1 

MM = MF P + M 3 

CALL FRPPR (MM-MTP1) 
IFILH.GT.LLM R = L I. 


MAI N7490 

MA 1 M7 son 

MAIN? 5 10 
MA I M? •>? 0 
MAfN?530 
MA I M? 540 
MAI M?S50 
MA I N? 560 
MAIN7570 
MA 1 N?580 
MA I N7590 
• MA I M? M)0 


CAM. S1RFSSC A I Ml ), A(M? ) f A (M3) . AIM) ) , AP(NO? ) , A | M3 ) * LL • LR . NFO ,NIIMDV f MA l N?M I) 

1 NFflR , A , MTPT .I.RMCK ♦ INllFT * I HF SN * ] l » I ? * I 3 . I R * ! 1 1 » ! W ) MA ]N?6?0 

f «!5r«* + ********** ******** **««**« *Jfr*^4t**C<:****>|:***<:<:**>!:*4:#4:***»>:«****MA I N?/> 30 

C RUCKLING ANALYSIS MA]N?840 

(“**** ***<> ******************* *#** ********** ********************* *****^/y I N?f>50 

MTnT?=MTPT /? MA I N? 6M1 

TF( LRUCK.MF.O) C.AI.I. R A M A I. ( A . A D ♦ M 1 fl T t m T P T ? ) MAJN7670 

IF { NCYf.l. .Fn.O) GP TP 998 MA 1 N? 8 80 

C * ************* *************************** ****************** ************f4/\ J N? 690 

C FVALMATF CHRRFMT OFSIGN ANP PFP.FPP.M RFOFSIGN MAJN7700 

f ******************************* **************************************** MAIM? 710 


Mlsf 

M?sMI+NI|MDV 
M3 sN?+NUM 0V 
N/*eW3 + NIIMnV 
MSsN 4 4NUMI1V 
IMsl« 

IF( KPRIMT.Fn.O) GP IP H38 

n'sio 

RFUIJ Mp III 

CAM. OF S I GN ( A(M| ) «A(N7) 9 A(M3)«AIN4),A(MS) • NIIMIIV, 1.1. 1 1 M ) 

ine?»Ms!f)F*N4i 

I FIKPMVG.F0.4 ) GP TP 908 
lF(MftilCK.FO.n| GP TP 995 

C**< «****************************************************************: 

C RUCKLING f)FP IV A T I VF S 


M A | N? 7? 0 
MA I N? 730 
MA | M? 740 
MAIN? 7 50 
MA IN? 7M> 
MA I N? 770 
MAIN? 780 
MAIN? 790 
MA IN? 8 00 
MAIN7H10 
MA I N? 8? I) 
MA Ul?«30 
MA I N? 840 
**MA I N? 8 50 
MA I N? MM1 


C :*** ******* ********** ************ **** ****** ************* *************** *MAT N? R70 


Ms 4 *1.1. 

RFuiwn n 

rf An( in ( a m ) • i = i » m ) 

I. R1 = ( MlPT-N|IMl)V-NFPR*MMfipF*? I / I NFO + NI IMOV ) 

Ms?*M1 |MI1 V+NF P+Mf Oft*NMf»pF *?-M |PT 
1 FI |.81 ,1.1.1 ) CAM FPRPIMM) 
f F( I. ft 1 .G I , MRlfCK ) I.H 1 sMhiir.K 
M?sMl +MIIMDV 
M3 sM? +MIIMI1V *1 ■< 1 
N6 = M3+MFn*1 i»| 

MH4sM/| / ? + 1 

CAIJ. OF P V ( A I wi ) , A ( H? | t A I Ml I . AM | Ml)* ) . I. ft ] t Mill If. K . Wf-MH. T MM LOCK , Mf-ll, 


MA I M? ft HO 
MA I N?M90 
MAIN7900 
MA I N ? 9 1 0 
MA I M? 9? 0 
MA I M7 9 30 
MA J M?u4f> 

MA I M? 950 
MA I N? 0 80 
MA I M?^70 
MA | M? 9 80 
MA 1 W7 mid 



I Ml IMH V t MM PDF ,l.|. , MIIMFf. f \ \ , | 7 , f 3 , 1 l?, 1 R * I N ) MA I N 3(100 

f ****** * ******* * * * * * * * * * * * * * * * * * * * * * * * ******************** £ ************* f»*. A J N 3 0 1 ( ) 

C- pFPFntJM mif.KI.INf. RF0FSI0N MA1M3070 

f **** ***** ************************************************************** MAI M3030 


Ml ’1 

N? = M1 +KMIMDV 
Ml =M ? 4-MI IMflV *N RllfK 
MA =M3+MUMnV 
M 5 = M A + MM M 0 V 
M^sMR+NIIMHU 
M7=M* + NI lunv 


MA IN'3040 
MA1NKIS0 
MA IM30^n 
MA I N 307 O 
MA )N30H0 
MAIM3040 
MA I N 31 no 


MRsr M7 + MIIM0V 

Ms( A+Mmir.K ) *NiiMnv+4*i.i.-MTP r 

IF! N. 01.0) f A 1. 1 FKKPP ( M ) 

f.Al.L RDFMN < A{ M] ) , A ( M ? ) # A{ Ml) , A ( MA | » AIMS) , A ( Mfr ) • A ( M7 ) , A ( MR ) , 
] MiiMnv. ii i, li. .nhiic k ) 

I F ( KOMVO .MF .A) OP JP Ov)4 
ooa <;inp 

innn format! 7 0 a/*/a | , 5 ) 

1001 FORMAT 1 3T 4,?F) 0.0,314 ) 

1 00? FORMAT ( 1 A is 1 

IPO’ FORMAT 1 FI O.n, A I s , ?F 1 P, n ) 

?onn FORMATM HI ,?0A4// 

. ?HH MHMPFR OF MPHAI. POfNlS = ,|S/ 

. ?HH NUMP.FR OF Fl.FMFMT TYPFS = t I ^ / 

. ?RM Ail IMP FR OF I PAH GASPS =,15/ 

. ?HH NHMHPR PF IlF S « VARIAPI.FS = , ] S ) 


?001 FORMAT!// 

??H 

OF ST ON COM TRIM. OAT A // 

1 

OH 

MfYCI. = ,14/ 

? 

OM 

K Sf A1.F = * I *5 / 

3 

«H 

nFl.TA =,F1?,4/ 

4 

f'H 

FPSTL =*F1?.4/ 

S 

OH 

I.RIICK =*15 ) 


?00? FORMAT!//) 

?003 FORMAT ( 34H TOTAL WHMHFH OF FONATM'MS = ,T4, 

1 /v,n PAwnwinTM =.!S, 

? /34H NIIMPFU OF FlMIATinNS JN A Pl.f’GK = .I4, 

? /?/.H MHMMFR OF 01.00* «; =*1*5) 


?004 FORMAT ( 3 1 H) ************************** 


) 

?6H 

ANALYSIS PF 

OF s 1 OM 

MMMOFP 

? 

3 1 H 

**:} 

********* 

* * * * *** 

****** 

?nnH 

FORMAT ! // 

??H 

BUCK L ?M0 

f.PNTPOl 

n a ) a 

. 


OH 

CPF FF T = 

F 1 0 . *i / 


l 


UM 

MOOF |N = 

14/ 


? 


OH 

NNIIOF - 

is/ 


? 


OM 

JMMFT = 

14/ 


4 


OH 

NVFC = 

14/ 


6 


OH 

AI.PA - 

F10. 4 / 


4 


OH 

OMFOA - 

MO.«H 



*** * / 

14 / 

****//) 


// 


F NO 


MAI Nl) in 
MA I W3 1?0 
MAI M3) 10 
M A T N 3 1 4 0 
MA ) N31 50 
MA IM31A0 
MAI M3 170 
MA 1 N31 HO 
MA I Ml 19 0 
MA I M3? no 
MAIN 3? 1 0 
MA IM3??0 
MAI N 3? 30 
MA JN3?4(> 
MA I M3? 50 
MA IN.3? fcO 
MAI M3? 70 
MA I M3? HO 
MA 1 N3?<*0 
MA I M3 300 
M A | M 3 3 1 O 
MA I M3370 
MA1M3310 
MA IN 3.340 
MA I M3 350 
MA I M 3360 
MAI M 3370 
MA I M 3 3 HO 
MA J MllVO 

MA IN .34 00 
M A l M 34 l 0 
MA I M 3 4 ? O 
MA | M3430 
MA I M 34 4(1 
MA I M 3450 
MA I M 34 AO 
MA I M 347 O 
MA ) M .3 4 M f> 
MAI N34N0 


SI MR HUT |NF INPUT. J( ||l«X v Y ,M f NIIMNP,NM». |K, IP , |W) MA|W3S0ri 

f ** * * ******************* ****** * *£*#****MA | N 3S | 0 

C. R FAD HR GFNFRA 1 F MOI>A|. PH | M T DATA MAIN 3 S 70 

£*************************#***************************************** ****MA)N 3 S 30 
O IMF MS ?nw X( MIIMNP ) . Y( NIIMNP 1,71 NIIMNP ) , J IX MfIMMP, A ) . 1 t NIIMNP J MA TNHS 40 

PFVIt-m 1 » IAA)N 3 SSl> 

ur i t r ( ?w,?ono) main^sao 

WRIIFIIP,?^! ) MA1N3S70 

Mm.n =0 MA 1 N 3 SK 0 

10 P F A 0 I I P • 1 000 ) M« ( MUN, | )t? = l»A) f X(N),Y(N) v 7 (N) v KN T l(N) MAJN 3 S 90 

WRIT Ft I W,? 00 ? )*U( fWN ,f ) , I = | ,A | ,X< N) , Yf N) , 7 (N) , KN, |(N) MA IN •)%()() 

f ** **** ** ****** ********* ** ******************* * * a*###* ************** ***** MAI N 36 10 

r. CHECK IF GFNFRAT 10 N IS «FOIIIRH> MAjN*A?() 

(-**********************#************************************************ MAJN 3 A 30 


IFiMnin.FO.nl i;n in so 
lift- ?n 1 = 1 ,A 

I Ft IO(N, VI .FO.O.ANM. int MIM.11,1 I.IT.O) IO(N,I ) =1 l)t NfH.1), I ) 
?n r.nMUMiir 

IFIKM.FO.OI t;n TP so 
Ml IM= t M-MOl.n ) / KM 


MA JN3A40 
MA I N3AS0 
MAJN3AA0 
MAIM3AV0 
MA l N3ARO 
MAIM3A90 


M|tMMsNltM-l 

IFI MIIMN.I.T. I) GO TO SO 

XMIIMsNIIH 

nx=t xt M)-xtNnr.n) j/xmiim 
dy=( Yt n j — Yt Nni.n ) i/xwtiM 
07 = t 7iN)-7iMm.n) i/xmum 
f>T=( T IN)-T(Nni.n 1 ) /xniim 
KaMPin 

on 30 .1=1 ,NI|MN 
KK = K 
K=K+KM 

XtK ) = XIKK 1 + OX 
Yt K )=Y( KK | +r)Y 
7f K 1*7 I KK 1+0? 

Tt K ) = TtKK >+0T 
on ?0 I = T , A 
intK,n=ioiKK,n 

IF ( miK,n.r,T*n iotk f j imihkk, i i + i 
3n r.nwTjNiiF 
so um.nsM 

IFt M.NF.MIIMNP) 00 TO 10 


MA I M3 TOO 
MAIN3710 
MA |N. 4770 
MAIM3730 
HA I N3740 
MAIM3750 
MA IM37AO 
MAIN3770 
MA I N 37 RO 
MA I M3790 
MA IM3B00 
M/IM3H1I) 
MA IN3P?0 
MAIM3R30 
MA IN3R40 
MAIM3R50 
MA 1 M3RA0 

M MAIM3H70 

MA I M3RR0 
MAIN3R90 
MAIN3900 


f ****************************************** *****************************MA I N39J0 

r : PRINT 41. 1. NnnAL POINT data MMN3970 

f3******i*******>* *********** ******* ********** ******* ****** ******* #*******<eMA I N393U 


WRITF t I M f ?003 ) MAJN3940 

writf (Tu,7on!) MAIN39SO 

WRITF fTW,?OOSJ fN.t intM, I ) , 1 =1 ,A ) .X tM) , Yt M> , 7 . ( N) * Tt Ml ,N= \ , NIIMNP) MAIN3VAI) 
f ********************************* *********<!**** ********************** ** mA I M3V70 

C MMMRFR HMKMOWMS AMO SFT MASTFH WOOFS MFKMIVF MA|M39R(l 

F****** ********************************************************* ******** MA I N3990 



MFO=0 

MA I NAOOO 


no AO w=i,mhmmp 

MA I M4I) 1 0 


on ao i=i . a 

MA1N4070 


TIMM, | ) = | ARS| VH(N, I ) } 

MAIM4030 


IFt lot M t U-1 ) S7*Stt,SQ 

MA IM404I) 

*57 

MF0=MF0+1 

MAIN40S0 


I0( M, 1 )=NFO 

MA 1N40AII 


On in AO 

MA I M4070 

SR 

m(M, i i = o 

MA IM40H(V 


on m ao 

MA | N4fl9tl 


.o 

*Nl 


59 TH(M V f )s-fn(M,[ | MAI N4 1 00 

*0 CHNIfNIlF ‘ ' WAINAHO 

WR 1 T F( ! W , 7 004 ) ( N t ( miM, ! ) , 1 =1 ,F ) ,M=1 ,N||MMP) MA]M41?() 

WRIlF(jR) TO M01M413O 

PFTURM MAIN4140 

1 non FORMAT f 7 1 5 ,3F lO.n , f F , F 1 o.n ) MAT NM 50 

?f)On FORMA 7( // ?3H NOOAI. POINT INPUT OATA } MAJN4160 

7001 FORMAT ( SMOMOOF, 3X f ?4WanilMnAPV CnNOIlION r.OI)FS,3X* MAIW4170 

l 3 OH / MOnAI.' Pfl|MT COOROTMATFS : //. MA|M41«0 

?7H NIIMPFR , ?X , 1HX.AX, 1 HY , A X , 1 H7 * 3 X ♦ ?HX X , 3X , 7MYY , ?X * ?HZ ? , 1 2 X , MAI M4 190 

MMX, l?X, 1HY, IPX, IM7 « 1 7X, 1H1 / \ % MATMA700 

7007 FORMAT (T**M5,3F13.?,I5,F13,3) MAIM4710 

7003 FORMAT ( // 71H liFMFRA TFD NOOAI. OA ] A ) MAIN47?0 

700A FORMAT {// 17H FOMATION MHMKFPS// MAIN4730 

1 3 5H M X Y 7 XX YY 77. / C 7 T S ) ) MAJN47AO 

7005 FORMAT (I 5 * A I 5 , *F H . ? ) MAIN4750 

FMO MAIN47A0 


SimunilTlMF 1 M T F R P ( F *FF,NIIMTC .MMMMAT *NIIM1 ,N|IM? f NT ,MA T . TFMP ) MA1N4770 

f<r**S******S*<!$ A S**:!:*****:*)***:**:* 8* £**££*$***##****'*<:$ <=4 4**3* ***$$$MA!NA?RO 

c IMTFRPOI. /\TF< HAIFRTM. PRnPFRTIFR FMR AVFRAIiF FI.FMFNT IFMPFRAltIRF MAI MR? 90 

£*<=<=***<=*#*<(***** <=<=****<;** is ****** * *<: A********* ****<=****#***ft**#********MA!NR 300 
IMPLlr.IT RFAI.SR IA-H,n-7.t MA1MR31D 

PFAI.AA F MA I NR 3^0 

H I MF M R I DM F( NIIMTC .M1IMI .MIIMMAT ) tFF( NIIM?) NAJN4330 

lFiMT.MF.il nn tp ??n main^-ro 

on 710 KKs] f NIIM7 MAJN4350 

710 FFf KK ) = F( 1 ,KK+1 ,MAT) MAIN4360 

(;o TO 7A0 MATN4370 

770 00 730 T=?,MT MAIN43HO 

M = I MAJM4390 

TT aF(|-l , 1 ,MAT) MAIN4400 

T? =F( | t l , MAT) MAJN4410 

TFIT7.0F.TFMp) GO TO 740 MAJN4470 

7 30 CONTI Ml IF MATN44 30 

740 PT=f T7-7FMp)/f T7-TI) MAIN4440 

R.) = ( TFMp-T]l /( T7-TI ) MATN4450 

no 750 KKs1,tyllM? MAIM444Q 

750 FF( KK )=F t I I -1 ,KK + 1 ,MA T)«R I +F( | | .KK+1 * MAT ) *R.I MATN4470 

740 RF TURN MAIN44R0 

FNH MAIM4490 


SIIMROUTINF FPPOP(N) 

COMMON /| IN ITS/ IK«ru v *)P,J1 * I 7 , I 3 , 1 K , 1 9 ♦ I 1 0 . I H • T ] 7 « I 13 

WR TTF IT w.7000 ) N 

STOP 

7000 FORMAT ( // 7 OH STORAOF FXf.FFOFO «Y »TM 
FNH 


rp 

00 



SHRRnilTIMF FI.TYPF * A *MTO T , Ml YPF • I WJ MAIN 

(■_*************************** ft* *************************************** ***MA I N 
C CALL APPROPRJATF FI.FMFNT SlIMKOMTINF TP PFVFI.PP FI.FMFNT MATRICES MAIN 

f ******* ************* *** **** ******** ****** ********************* #********fnfl I N 

ntMFNSIPM A(MTPT) MAIN 

00 70 (]*?,?«4 v 5 v a 9 7«R)«mtypf main 

(**************** ft ************************************************* ft ft****MAJN 

C 1HRPF P I MpMS I PNA|_ TRUSS FI.FMFNT 5 MAIN 

f ft* ******************************************************************** ft MA I M 
1 CALL TRUSS (A.MTPT) MAIN 

on in qnn main 

f * ft********************************************************** ********«**f,lA I N 

c THRFF OI'MFMSTPNAL HFAM FLFMFNTS MAIN 

f ft************************************************************** *ft******MA | N 

? CAI.L RFAM ( A.MTPT) MAIN 

OP Tp opn main 

C *************** ft* ******* ********* *********** ********************* ft* ****MA I N 
C Pl.AWF STPFSS FLFMFNTS MAIN 

f^******************************** ****************4 ********* ************ft^AJflJ 

* CAI.L PLAMF (A.MTPT) MAIN 

OP TP on o MAIN 

(;****************************************************************** ft****f*A I N 

C SHFAR PAMFI. FLFMFNTS MAIN 

£*********************************************************************** MAIN 
4 CALL SHFAR ( A.MTPT) MAIN 

on 70 opn main 

eft****************************************************** ft*** **#****#♦#** MA IN 

C PROVISION FOR OTHFR TYPFS OF FI. FMFNTS MAIN 

£ ********* **************************************** ft* ******************** MA IN 
R CAI.L NPF 1 . FM ( MT YPF , n. IW) MAIN 

on fn OOP MAIN 

f *************************************************************** *ft**ft***MA I N 

C PL ATF/SHFLL FLFMFNTS MAJN 

C ******************************************************************** ***MA I N 
A CALL SHFI.L ( A.MTPT I MAIN 

on tp opn main 

P**************** ****************************** *************************MA IN 

C RPIINPAPY FLFMFNTS MAIN 

£************************* ********************************************** main 
7 CALL ROUND (A.M1PT) MAIN 

OP TP 000 MAIN 

F ********************************************************* ft *************M A I N 

C PROVISION FOR MTHFR TYPFS OF FI.FMFMTS MAIN 

C************ **************************************************** ft* **ft**MAIN 
n CALL npflFM( mtypf , n ? i«j) main 

onn RFTMRN MAIN 

FNtn MAIN 


<P 

VO 



MlRRnill INF NPFI.FM ( Ml VPF iKHDF t JH ) MAIMSOSO 

£***«* ft#**# ft ft* ft* ft ft*## ft ft ft ft ftftftftftftftft# ft ftftftftftftftft ft ft ft ftftftftftftftft ftftft# ft ft ftftftft ftft ft# ftftft ft MA ! NSOAO 

f PR T Ml 1HF MFSSAGF THAT RFOIIT RFO FLFMFNT SIJMRMM1INF IS MISSINU MA I A'SOSO 

C ftftftft ****** ft ftftftftftftftftftft# ft ftftft ftftft ft#* ft ft ftftftft ft* ft ftft ft ft ftft ft ft ftft ft ft ftft ftft ft ftft ft ftftftft* ftftftftftfo A IN SO SO 
WRflF MW, 100} MTYPF MA 1 NS 070 


IF (khdf.nf.oj vi r i tf (iw,mn kpof majmsobo 

Slop mainsoro 

inn format (//ash thf fpi.i.wing fi.fmfnt has npi rffn prpgramfd: ma i nsi nn 

1 1AH FI.FMFWT TYPF=,1?) MATNS110 

101 FORMAT ( 1 AH COWSTRM r.PllF= f I?) MA1NS1?0 

FMO MAI MS 130 


StlRRPin IMF CAl.BAMt WfMF , I.M f S,P,ST, I T,NN,MV,MS,Mn t MW, 1 OV AK , I P X , FRC ) MAJNS140 


£ftft ft ftftftftftftftftftftftftftftft* ftftftft ft ftftft ft* ftftft ft ftftft ft ft ftftft ft ftft ftftftftftftftftftftftftftftftftftftftftftftftftftftftflAJK^ l lj() 

C r.ALCIILATF RAMnwtOTH OF STPMr.lURF STIFFMFSS MATRIX MAINS1S0 

C WRTTF UNIT SJRFSS R F f. PV FRY MA1RJCFS AMO STRFSS-CnRRFCTTON MA TR 1C FSMA I NS l 70 

C PM 1APF IP MAI MSI R(1 

C WRITF liw | T STIFFMFSS AMO I.MAO VFC10R PM 7 APF I 1 ? M.ATMSlRO 

fftftftftftft ft ftftftftftftftft### ftft ftftft ft ****** ft ftftft ft ftft ft ftftftftftftftftftft#*# ************ ft ftftftftftftft MAINS?00 


IMPLICIT RF A».*R (A-H.P-7) 

PFA|.*A FRC 

niMFMSinisi i.M(wni f siwn,Mi) t wii) .pind.a.nv) ,sti Ns.Nn.Nin •tt(ns«a«nw> 9 
1 1MM 

CfWNPN/Fl. PAR /MPAR ( 1A J , Ml I MM P t MR AMO , IFI.P( 17) 

CPMMfiM/|iM ITS/ IK, ! w, IP, II, I?, I?, IR* 1^.110,111, 11?, 113 
MiM-inonon 
m a y = n 

nn Ann i_ = i ,mo 

IF II.MII I.Hl.P] CP TO floo 
IF I I.Mfi. ) ,r,T .MAX ) MAX S|.M( I 1 
IF I I Mil,) # |T. MIN) M I Ms L M ( |_ ) 
won criMT | mi jp 

MniFsMAX-M|M+l 

TF | HO IF .KT.MRANn ) MMAMnsNHIF 
I.ROsA+Nn* ( 1 + MI IftNO+NVftA ) 

ISC 1 )=MM 
1 M ?)=MVJ 


MAIMS? 10 
MA | NS?? 0 
MA I NS? 30 
MA | MS? AO 
MA I MS? SO 
MA I MS? AO 
MAIMS? 70 
MAI NS? HO 
MA 1 NS? RO 
MAI MS 300 

maims-uo 

MAI MS?? 0 
MA INS.Vril) 
MAI MS?AO 
MA JMS.HSO 
MAI NS?AO 
MA 1 N S3 70 
MAI MS?HO 


IS( ? J =MS 
| S ( A ) s N 0 


1ST S )=invAR 
IMS WIFV 

WOITFC IP ) |S,FPC.LM,ST 
I S( 1 J=LRO 


r t 


MA 1NS?R<) 
MA I MS AOO 
MA I MSA 1.0 
MA I MS A?0 
MA 1 MSA?0 
MA I M S A A II 


IS{ ? )sNII 
I SI ? I=NV 
IS( A ) it Mil 

URMFIIl?) I S.FPC.I M,S ,P 

up HIP w 

FMO 


MA I MSA SO 
MA I MSAftO 
MA 1 MSA 70 
MAIMSARO 
MA | MSA RO 
MA1MSSOO 


>3 


O 



simRmiTfMF fi.rshvi G,MSG,Nn t M(;, \\ \ > mainssio 

*««#**#*** A <■*#*#* fcfc *#*«$* <»<!$ *<■•*$ **«>}! *$*«**<« $* *$$*$$#$«$ I NSS7 0 


r URTTF F1.FMPMT IIW I T GFMMFTRIC. ST I FFMFSS MAIR1CFS f*N TAPF 111 MAJNSS30 

f ****< 1 ** *$* <:*#***#* *#«**$ *** a**********.*#### <t ****** $ ****** ************* *MA J NSS40 


IMPLICIT RFAI.*R |A<-H«n-ZI MAJNSSSO 

niMFwsinM c(wn,Mn,Mr; ) .NsncMr;) maimssm) 

WRITF( 111 ) NI5,G*NS(; MA| MSS 70 

PFTIIpM MA | MSSRO 

FMn MA 1 NSS90 


SlIRROItl JMF WFf.TPH( V, XI * Yf *7 I *X.i, YJ*7J) MAJNSM>0 

C ********* ******* ****************** ********** ft*#*** ******************** *M A JMSA 1(1 

C CAI.CIM.ATF CPMPPNFMJS PF A VFCIPP MAJWS670 

f******************************************<!******************«*********MA|NSf»3n 


IMPLICIT RFA1.*R IA-M,n-7) 

pimfms inw v( a ) 

X = Y J-X J 

Y=Y.I-YI 
7 = 7,1-71 

\r[ A)=nSORT( X*X+Y*Y+ 7 « 7 ) 

\/m=7/vu i 

U( ? ) =Y/\M A ) 

V< 1 ) = X/W( A) 

RFTMRN 

FMP 


MAJMSfcAO 
MA |MSASO 
MAIMSfrM) 
MA IMSIS70 
MA 1 MS f,R{> 
MA I MSf»90 
MA | N5700 
MA JMS710 
MA INS7?P 
MA 1NS730 
MAI NS 7 AO 


S MRP. PUT T MF r.PPSSl A.R.C) MA I MS750 

£*********************** ****** ************* ** ******* ************** ****** MA ! NS 76 1) 
C CROSS PR POM C T PF T«P VFCTPRS MAJMS770 


£******** ****** ***** ****** ***<i ****** * *********************** * * **********mA I NS 7P0 
IMPLICIT «FAL*R (A-M,n-Z) MA I MS 790 

0 I-MpNS J PM AU) V R(A),C(A) MA|NS «00 


X = A( ? )*Rf 3 ) — A( 3 ) -FM 7 ) 
Y=A(?)*R( ll-A II )#Rm 
7 = a( n*R i? i-a( ? i*m 1 1 
CIA J = nSPRTI X*X + Y*Y+7*7 ) 
C( 3 ) = 7/Cl 4 ) 

C(7) = Y/CI A) 

Cl 1)=X/CTA) 

PFTIIPM 

FMn 


MAI MSP If) 
MA INSR70 
MA I MSH30 
MA I NS RAP 
MA INSHSO 
MAIMSH60 
MA I M SR 70 
MAINSRRO 
MA | NSR90 


RFAL FI INC 1 I PM nniiH !A,R) 

-(^3 >****************************************: 

C hot PRPnilCT PF TVJP VFCinRS 

£********************************* ****** * * : 
IMPLICIT RFA!.*R ( A-M.n-7 ) 

ntMFMSIPM A ( A ) * R { A ) 

nPT = A 11 )*R{])+Alp)*RI7)+AI3)*R|3) 

RFT1IRM 

FMP 


MA I MS900 

*************************MAlNS9lO 

MAINS970 

:****************** *******MAJNS9 30 

MAI MS9AO 
MA JNSnSO 
MA1MS9M) 
MA I WSM70 
MAIMS9H0 


Q. 11 


SURROIIT T MF R F AR AN ( S • $ S * MM 1 *NM?.NM3,Nl *N? f N3,N4) MAIN5990 

f********* ****** ft * * *********** 4 * * * * * * * * * * * * **************************** *M A I N A 0(10 

r. RFARRAMGF MATRIX S MAINAOIO 

£**********************************«***************************** *******MAIM A 0?0 


U 

10 


IMPLICIT RFM.*« l A-H ,n-7 } 

0 JMFNS I ON SIMM 1 « MM P , MM? ) T S S ( N4 | 
I T =n 

nn in k - 1 » m ? 

nn in . 1=1 #n ? 

nn ii i=i ,ni 

SM l l + l l=s( l ,.i,k l 

TT=lf+Ml 

RFTIIRM 

FNO 


mmnao^o 

MA1MA040 
MA 1NA050 
MA I MAOAO 
MA 1 N A(1 70 
MAI NAOHO 
MMMA090 
MA I N A 1 00 
MA JNM 10 
MA I NA l? 0 


SMRRniniNF IINT1tiT(IIW*l, I ft'NIIMnv) MAI MAI 30 

C******* ********************* ************* ******************************mAINA]40 

C WRI1F UN T T WFTGH1 pM TAPF 18 MMN615H 

C * * * ************************************************************* ******* mAJNAI A(1 


n j m fms I On uwT(NiiMnv) 

WRTTF1 ? R ) 1 1 VI T 

RFTIIRM 

FMn 


MAI NAT 70 
MA 1 NA 1 HO 
M A 1 N A 1 9 0 
MA I MA? 00 


SI IRRnil T T WF FLMMI.TI STR ,I.L , IR t l'J, 1 l ) MA|NA?lO 

L ************************************* *******»***************************MA l MA??0 


C R F An TM STRIICTIIRF I.PAH Mill. T I Pl_ ! FR S 

f ****************************************************************** 

niMFMSinM s TR( A «1.l. ) 

RFW|Mn n 
ur TTF 1 Tw,?oon) 
nn sn i =i ,i.i. 

rfaoi TR, inn? ) ( STP( T,u, l = l,4) 
so URnFUW.700?) !.'( STRf 1 «M 

WRTTF III ) SIR 
RFTIIRM 

100? FOPMAT (4FT0.0) 

?non F0RMATI//10M STRIICTUPF , ] ?X,?AUSTRIinMRF LHAH MU|. T ! PI. I FR S / 

. 1 OH LHAI) CASF ,9X . IMA ,QX , INK ,9X ♦ lHf. t 4X , 1 HO/ ) 

?00? FORMAT ( 1 A,7X ,4F 10.3 1 
fmr 


MA IMA? 3(1 
* *MA 1 NA? 4U 
MA 1 N A? 50 
MA I MA? AO 
MA IMA? 70 
MA I MA? H 0 
MA IMA? 90 
MAI MM 300 
MA IMA31 n 
MAI M A 3? 0 
MA I M A 3 3 0 
MA I MA340 
MA 1 M A 3 50 
MA T MA3A0 
MA 1 M A3 70 


Q.12 



SURRPIIT IMF f Ml. I III, TP ,R,NUMMp # NFOR,|J. , JR , I W ^ IIP) 


MA I NA3H0 


c input wnnAi. i.n/wis ma?ma400 

C. **** $###$$ ^ *#s*^'* *«#$*#>{!**** **>>*$** ***#*£$£*$#<:$ £$$:*$ ] NA4 If) 

TMPI.fr. IT R F A I. * P ( A-H.P-7 ) MAJNA470 


RFAI. *4 JR 

DIMPHSIOM Tn(WIIMMp,A) ,TP (A t |.|. )'RfNFOR«1.t. ) 

r.nMMnM/jiiMK / r i a » , .mini tsa i 

KSMFsO 

wr i tf ( iw,?nn?) 
nn 7sn l=T ,Mpon 
on ?sn k’=i #i.i. 

7sn r< 1 , k )= n,n 

nn qno nm=i .mummp 
nn ion 1 = 1 ,6 
nn inn .1 = 1 ,1.1. 
inn TRU,,i)=n.n 

1 F ( mm.fo.i ) nn tp ion 

ISO TFIM.MF.NWI nn TO 400 
nn ?no t = 1 , a 
700 TP ( 1 ,1. )=R ( I ) 

Ron rfao (iR.innn M »i.»R 
IF TM.FO.O) nn TP iso 

writ fi iw«?non n , 1 , p 
nn in iso 
/*nn nn Ron ,i=i f A 

I 1= fill NN* J)-K SHF 
IF (II) nnn, pnn ,Pon 
snn nn Aon K = i,i.r. 

Ann r( t 1 , k ) = TR 1 .1 , k ) 
mo 1 F 1 1 1 .nf.nfob > nn m «oo 
WRTTFI n?) R 
KSHF = KSHF+MFf1R 
nn 7nn i=i,nfor 
nn 7nn k=i * 1 . 1 . 

7nn Rf t , k )=o.n 

Rnn chmijmiif 
qnn cnNT 1 nuf 

WRT 1FII1?) H 
PFTIIRM • 

1001 FORMAT I?IS,7F10.4) 

?noi FOPMAT (?IS,AF11,1) 

POOP FPPMAT ( // 1 RH MpilAI. POINT 1.0A0S // 10H NOflF LPAP t ?3X f 

. 1&HAPPI.IF0 1.0AI1S / 1 OH Mil. f. A SF ,9X, ?HRX, UX, 

?HHY*1 1 X.7HR7.1 1X.?MMX« |1X,?HMY, 1 JX.7HM? ) 

FNO 


MA | NA4 -U1 
MAJNA440 
MA 1 NA4 50 
MA1MA460 
MA IMA4 70 
MA INA4P0 
MA I NA490 
MAJNASOO 
MA 1 was in 
MAI NA570 
MA I MAS 30 
MA I NAS40 
MA INASSf) 
MA J NAS AO 
MA JNAS70 

MAINASRO 
MA JNAS90 
MATNAAOO 
MA TNAAln 
MAI MAA?0 
MA INAA30 
MAIMAA40 
MA JNAA50 
MA INAAAO 
MA I NAA70 
MA I NAAHO 
MA | MA690 
MAIMA700 
MA IMA7U) 
MA I NA7? 0 
MA JNA730 
MA IMA740 
MA1MA750 
MA I MA7A0 
MA JMA7 70 
MAINA7R0 
MAIMA79U 
MAI NAPOO 
MA 1NAH10 
MA I NAP? 1) 
MA I MAP 3(1 


SMRRPin INF INPUT?! 7 , NFOR, NR|_Of K , NWFC , MfMlF I fJ , NFO ,T l ? * |R ) MAJNAP40 

C RFAn IN OR. OFMFPATF IMF rrmpfllNAlF VFCTOHS ANll WR II F PM IAPF 113 MA I MAP AO 

r. r.l =! 7**311-1 MA J NAP 70 

f. C.P =1/17**311 MAlMAHPd 


1MPI.ir.JT PFAI *P IA-H.I'-/) MA I MA400 

II T MFNS I PM 7( NFQH.MVFf ) MA ] MA9 J O 

pat A r. i / ? 1*74 P3A47.no / ,r?/7 3M?oooooononnono/ ma 1 m a v? n 

RFU J Mn 113 MAINA9 30 


£T‘& 


77 = 1 
1.1 »MFOR 

nn pno i. = i.wmipck 
on inn 1 = 1 ,mfor 
nn inn jsI.mvfc 
mn 71 i ,.i )=n .o 

T F ( I. . FO.NRI.Or.K ) 1.1 sNFO-NFOK*(NR1. 
1F( MflHF IM.NF .0) f;n to mn 


HA I MA»940 
MA J N4950 
MA 1 NA9A0 
MA IN4970 
MA I M59R0 
MA IN4990 

-1 ) MA 1 N 7 00(1 

MAIM 70 10 


C GFMFRATF RANDOM STARTING VFCTPRS USING 77 AS SFFD MAJM7O30 

c UNIFORM PSPUPP-KAMUPM N1IMMFM GFNFPAJFK RF T VJFFN-O. 5 AND 0.5 MA1N7040 

DP 5pn 1*1 f 1.1 MAlM70fi() 

nn son .1 = 1 ,mvfc ma]N7070 

77 = nMnr>( l APP7. 00*77 .Cl ) MAIM70RO 

5nn 7(1 •J)=7.7*r.?-O.S MAIN7090 

GO in ? Sn MAIM7100 

*:}; ** *##*<»* &$&$$«$##$$ fM7l 10 

C RfAn TM STARTING CPPRM MAT F VFCTPRS MAIN7170 

C. a**:********** ******* * ************* ***** * ***** ***** * * *** ******* ******* **M& IM7130 


■3 00 

RFAO(IP,7000 l • f 7 f Tf.l)fJ=l .NVFf.),l=l ,1.1) 

MAI NY 140 

?sn 

r.HMT l Ml IF 

MA I M 7 1 5 0 


MRllFflPI 7 

MAIN7I60 

?on 

cnw? I NUF 

MAIN7170 


R F T MR N 

MA I N71 Mil 

?nnn 

FflPM AT( RF1 0.5 1 

MA TM71 90 


FMO 

MAIM7700 


SHRRnUTINF OFV AR( Apf.O • A M I M .MIIMOV , 1 } • 1 K • 1 W 1 MAlN7?i() 

f *********************************************************************** f.1/VjM7??() 

c RFAO PR GFMFRATF OF SI GM VAR ! AR|_F DATA MAIN7?30 

f ** * ******** ************ ** **** ****** ****** ***** AS#**#*#*:#!* ****** **** ****ft£ J N7740 


10 

11 


n I M F M s TOM APLO( MIIMOV ) , AM JM( NtlMflV 1 
MPI 0=0 

MR 1TF I I W, 100) 

RFAOf IR.mi IN * API.O (N ) , AM JN <M ) 
MM=M- 1 

IFIMN.FO.NPI.fMGP IP 11 
KKsNni.n* 1 
OP 10 JsKK.NN 
Ani.ni I ) = Ani.ru m ) 

AMI Ml I IsAMTMf M) 

MO!.n = N 

TFfN.i.i .mijmp\/ ) gp in q 


MA |N7? SO 
MA JN7760 
MAIN 7? 70 
MA f M77H0 
MAIN 77 90 
MA] N7 300 
MAIN7310 
MAIM7370 
M A 1 M 7 3 3 0 
MAIN? 340 
MA I N7350 
MA I M7 340 


1 on 


mi 

107 


nn i3 m= i .miimov 

1 F( Ani.nf M ) .1.7 . AM I M ( N ) ) A n l_ O I M ) = A M | N f M ) 
* MR I T F ( I W * 1 07 |N. APl.niM J V AM|N( M) 
MpTIFfll ) AMIN 

MR 1TF (II) API.P 
P F T UP N 


FORMA 1 ( // 3SH 

OF S 1 (iM VAR | A«I.F 

iMPu r 

MA 1 A 

// 

33W 

OF S If.M 




/ 

35M 

VAR 1 AN1.F 

|N| Tl A|. 

M J M AI.I.MUARI.F/ 

1 3511 

NUMHl-P 

VAI. 

IIF 

VA1.IIF 

/ ) 

FORMAT! I 5,7F10.O) 





FORMAT ( 1A,7X, 
Fwn 

7F1 3. A ) 






MA I M 7 3 7 O 
MAI N73HO 
MA I M7 3wn 
MA l N 74(1(1 
MA I m 74 in 
MA I N7470 
MA I N 74 30 
MAIN 7440 
MA IN 74 50 
MAI M 74M1 
MA IM7470 
MAIN? 4X0 
MA 1 M 74 90 


Q.14 



SimRPin IMF FI. S 1 IF I API. O * Nl IMOV , N1IMF 1,11,!? ,11?) MAIN7SOO 

r,************#******#**#*****************#******************************MA 1 N7510 

C FOP M FI.FMFM1 SUFFNFSS F Rf'M UNIT STIFFMFSS MA7RICFS MA1M75?0 

C******* ****** ******************************* ***** **********************MA 7 N7S 40 


JT fiFAl *P tA-H'P-71 
p r ai_ */, ahi n,F«r. 

njMFM^IPM APl.n INMMIW1 ,S1 l?4 t ?4),S?l?4,?4) t P1 < ?*,4 ) ,P?(?4,4 ) 
r, PMM HM / F M / 1_ M ( ?4 ) f S( ?4 ,?4 ,? ) ,P( ?4,4,? ) *FMM 141H) 

FOMlVALFWf.F IS1,S).<S?,MS77) ),IPl,P),(P?,P(97J ) 

KACKSPAC.F 11 
PFAntm AMi.n 
R F M I MO 1? 

RFW1M0 II ? 

nn ino Ms] ,niimfi. 

r f a ru T 1 ? ) i.pn,wn,MV,Mn, 1 iwap , I fx ,fpc , 1 i.m i 1 ) , \ =1 ,no ) ♦ ( < ( S( I , J, k ) , 
1 T = 1 , MO ) f .| = l ,ND) , K = 1 • Ml | ) ,( 1 (P( I , J.K ) • I =1 .NO) , J= 1 ,4) ,K=1 ,MV) 
f FHnVAR. FO.P | GP TP 106 
AR FA = API. 01 Tn\'AP)*FRr 
yiA‘FRTrARFA**lFX 
nn \n i i = i ,no 
nn in? ,1=1,4 

to? Pi ( 1 ,.i) = PH T *.i ) * arf A 
nn ini j=i,mo 
mi su t )=su I ,j)*ap.fa 
T F ( Mil, Fn. 1 ) gp IP ins 
nn i n4 1 =i ,Nn 
no 104 ,1s It MO 

104 si ( I ,.l ) = si ( I *.l ) + S? I 1 , .1 )*X I MFW T 

105 rFfMV.Fn.il GP TP fPA 

no 107 t=i ,wn 

nn 107 ,i= i ,4 

107 P 1 ( I ,,1 ) = P1 ( 1 , .1 ) + P ?( 1 , .» 1 

106 |.Rn = MD*|Mn+4 ) 

1 F( mo ■ FO , ? 4 ) on in ?nn 
MMsMO^MR 

CALL PFARAMf SI t Sl , ?4 « ?4 , 1 ,Mn,Nn,l .MM) 

MM= Mfl*4 

CALL R F A R AM ( PI , P 1 , 74 , 4 1 1 t M0,4 ,1 , MM ) 

?on CAI.I. Fl_ ST FMI I.Pfl , wn , I m , s l t PI f I ? ) 
l no cnMT i mi if 
RF 1IIPM 
FMn 


MAJM7S40 
MA 1M7550 
MAI N7S60 
MA1M7570 
MA! M7SB0 
MA]M 7500 
MAIM7600 
MA 1M7610 
MAIM7670 
MA 1M7630 
MAI M7640 
MA IN7650 
MA 1 M7660 
MA JN76 70 
MAI M76n(l 
MA IW7690 
MA I M7700 
M A I N 7 7 1 0 
MAJ M7770 
MA IN77 30 
MAIN7740 
MA IM7750 
MAI M7760 
MA IM7770 
MA I W77«0 

MA]M770(i 
MA I M7HOO 
MA 1 N7H 10 
MA!M7«?0 
MA 1 M7P30 
MA I M7K40 
MA IM7H50 
MA1N7P60 
MA I M7R 70 
MATM7RR0 
MA I N7R90 
MATM7900 
MA IM70 10 


Simnnin jnf fi. sifvc i.pn,Nn«t.M,si ,pi , I ?) 

F. ***************************** ************** 

C MR 1 IF FI.FMFM1 SUFFMFSSFS ON 1APF I? 

c* ****************************** ************ 
IMPLICIT RFAi.** (A-H,r-;i 
niMFMSlPM |_ M( Mil) , SU Mil, Ml)) ,P1 1 Mh, 4 ) 
MRMFM?) |.IH>,Nn,l M, S 1 ,P 1 
PF TURN 
FMn 


MAIM7970 

************************** **MA I M 79 30 

MAI M7940 

**************************** ma IN 79 50 

MAI M7900 
MA IN 79 70 
MAIM79M0 
MA I M7QV0 
MA] MM 000 


Q. 15 



SIIRROMTINF AHHST F ( A,R,STR ,MHMFI. .MHLPCK,NF?n t LL*MRANO t I l « ? f 19* I lO*MAlNHniO 
] II ?\ MMWROPO 

C *******£#**£* ********** £ *#*<-.***** ****#**#« A I NB030 

C FORMS GI.ORAI. Foil 1 1. 1 RR T I IM FOMA1IPMS ]M RI.PCKS MAI NR040 

IMPLICIT RFAI.** (A-H.n-7) MAIMHOM) 

RFAL*A STR MAIMB070 

n I MFMS I PM STRIA, LL ) « A ( MF?R i MB AMD ) , R |NF?R , LI I MAI NR080 

COMMOM/FM/I.MI ?4 ) . SSI 67? I , F MM( ?OQn ) MA JMK090 

MpORsMF ?R / ? MA I NR } 00 

K =MFOR-f 1 MA I NR l 10 

XsWRI.OCK MA I MB I.?0 

MRsOSORTI X ) MA IMRl 30 

MR=MR/?+] MA 1 MB 1 4(1 

MFRR=MR#NF?R MA I MR I 50 

MM= 1 MA I NR 1 60 

MtlM9 = 0 MA I MB 1 70 

MSMIFT=0 MAINH1R0 

PFMIMO pO MA I MR ] 40 

f;##*****-f*««#** J *f****-r*#*«**3!:*«*)(«#^**<k**«^*^*#*^***#*#s!:*»*«*#«>!:*«*###***#MA I MH?()0 
C RFAO STROP* TURF LPAO MML f I Pl_ I FR S MA|NR?lO 

R F 1*1 1 MO II MAINH7 50 

R F A 0 1 n ) STR MAIMHP40 

C, **,*»***#**# *****❖**********$***************$*❖£* **$#****#*#*#***4**#* £i**MA I NR? 50 

C FORM FPMAIIPMS IM BLOCKS I ? BLOCKS AT A TIMF) MA]NR?60 

f; )&*:**£*£<:**$#£ fra***: £***$ if** ft ft* <t * * ft * if % % if if # i* if if If frfrfcfrfcj* fr A 1 NR? 70 


no mon m = i ,wpi.fir.K ,? 
nn inn i =1 ,mf?r 
nn inn ,i=i,mrano 
inn a( i ,.i )=n. 

RFARI TIP) l|Rf I ,D* 1 = 1 ,NFOR) ,I. = MU 

IF ( m ,fo ,m ri.pck ) go jn ?nn 

RFAPI TIP) 'IBM *U . I = K,NF?R) ,L = 1 »L I . ) 

700 RFUJMn IP 
RFWlMn I? 

MA = 10 

mhmf=mhmq 

IF (MM.MF.ll GO TO 7S 
NA=JP 

M|IMF = MIIMFL 

MlfMQsO 

7B no 7no M = 1 ,MUMF 

RFAO (MA) I.PO * Nn ,11 M{J ) , f = 1 , Mil ) , ISSII ) * ! = 1 * LRO ) 

nn Ann 1=1 ,nii 

l_MM = ! -LM( I ) 

I T=I.MI I ) -MSM1FT 

IF (I T.LF.n.nR, II .GT.WFpR ) GO 10 600 
nn 3nn l = I,i.L 
nn ?nn ,1=1,4 

KK=nn*( Miu.l-l ) 

*nn r ( T I * 1 . ) =R 1 1 1 . L j + ssii+kk )*STR f ,■ « 1. ) 
nn son ,1 = 1 ,Nn 

,I,I = I.M f ,1 J + I.MM 

1 FI . 1 . 1 ) *>nn ,*>no, 39f> 

? on KK=MO*,i-Mn 

AI 1 I ,.U I = A ( 11 ,.u J+SSI I+KK ) 
son COM II Ml IF 
Ann COMT I Mi IF 


MA I NH?RO 
MA INH7Q0 
MA] MR?00 
MA fMRUlO 

MA I mb 3 ? 0 

MAINR330 
MAIMH340 
MA I NH.3 50 
MAI MB 360 
MA JNB370 
MATMH3H0 
MA 1 MR390 
MAIMB400 
MA INH4 10 
MAI MR 4? 0 
MAIMR430 
MA I N«440 
MA INH450 
MAI MB460 
MA I MB470 
MAIMB4H0 
MAIMB490 
MA I MR SOO 
MA I MRS 1 0 
MAINR5P0 
MA IMRS30 
MAI MBS40 
MA JMM650 
MA I MR *>60 
MA I NRS70 
MAI MRSfiO 
MA IMR5Q0 


f;**#***: >Ir if*** ajf***i> <!)■,: £ * $ # # * jj«jJn£fc*>;i){r$<ii, , «#MAIMH6 00 


91 ‘b 



C nFTFRMJNF IF STIFF MFSS IS Tf» RF PI. ACEH ON (IMlT 19 MA I NR6 1 0 

f * <:*#** i> ###**.***# ** **<:#* #«*** fc **«*«*# <r *:{: ******** « $ J* ** $*$ «*£*$***£**# M A I M R 67 O 

IF (MM.GT.1I GO TH 700 MA I NR 630 

OP 6*0 1 = 1, MO MAINR640 

H=I.M( n -MSHTFT MA1NR650 

IF I I I.GT.NF?R.AWn. II .IF.WFHR) GO IP 660 MAIWR660 

660 C flM r I Ml IF MAI NR6 70 

GP TP 700 MAINR6R0 

660 WRITF( IQ) I.RO,Mn,( |.M( 1 ) , 1 = 1 ,Mf>) ,( SS[ 1 ) , 1 = 1 ,LPO) MATNR690 

MMM?=MMMo+) MAI wh 700 

700 CPMTIMIIF MA 1 NR7 10 

WRT1F( no ) l( A( !, Jl • 1=1 ,NFO») , J=1 ,MPAMO) , (( R ( I * 1 . ) , 1 = 1 ,MFOR ) ,!. = ) ,| I ) MAI MR770 
TF{ M.FO.MRLPCK ) GP TP 1000 MATNH730 

WRMF(IIO) II MI. J) *1 = K ,NF?H) ,.»=! ,MRAN0), M R ( ! • I.) , J=K ,NF2R ) , L = 1 *1 I. ) MA 1 NR740 


IF (MM.FP.MR) MM=n 
MM=MM+ 1 

1000 M$wt FT=MSHIFT+MF?R 
R F 7 MR M 
F^n 


MA I MR 7 50 
MAI NR760 
MA I NR770 
MAIMR7R0 
MA J NR 790 


SPRRPin IMF USPI. (MAXRtAfRf MFOM » MR . I_ L * NKI. PCK ♦ NSB ♦Nf’PG , NHKS.Nl 1 * MA I NHHOO 

1 MT7.IWJ MA1MHR10 


C THIS SUBPROGRAM SfM.VF S Si Mill. TANipniiS FILIATIONS FPR 0 I SPLACFMENTS MAIWRR30 

c tapfs iisfo ap.f as follow maimrr^o 

C A AMP'R (TWO RLPf.KS PF STRUCTURAL STIFFNESS AMO LPAI) VECTORS) AKF MA I NHH50 

C STPRFO PM TAPF NORG MAINHR60 

C SCRATCH PM MRKS , NT 1 , NT7 MA I NRR70 

C RFSIII.TS A RF PM TAPF NT? MAJNRHRO 

f^S*****###*#* £#***«!?<«**$£«*$*£$#** -4f$*$4S$3?$:*S:S:fc#£:?<ti)::?Ss$3X::?$$:<i:?$*S##:*iS:*$MAINR890 


IMPLICIT RFAI.*fi (A-H,P-?) 
niMFMSlPN A ( NSR I « R( MSR) ,MAXR( WFOR ) 
MC = MR+|.|. 

MR R = ( MR-) )/MFOR+l 
T Mf =MFPR- 1 


mmr=mfor*mr 

M?=WT? 

Ml =MT1 


RFWTMn MPRG 
RFWfMO MRKS 








MAIMR900 
MA I M89 1 n 
MA 1 MR 970 
MAINH930 
MAI NR940 
MA IMR950 
MA I MR 960 
MA I MRt) 70 
MA I MH9H0 
MA 1MRM90 

*$S*******>}:**:(t**MAI N9000 


C RFPIICF F0IIAT1PNS RI.PCK -RY-RI.PCK 

f*****##:* * $ * C $ :* 

on qoo m = i ,mri nc.K 

IF (M.GT, 1 . AMP.WRM .FO. 1 ) GO TP lin 
IF ( MRR.FO.l ) GP TP IPS 
RFWIMO Ml 

RFWIMO M? 

1 OR MT=M1 

IF(N.FO.l) MlsMPRU 
R F A 0 ( M 1 1 A 
1 1 n on 3oo i =i ,nfoh 
n=A(l) 

IF(P) 1 1 R,30n,l ?n 
1)6 MsMFPR* (M— 1 )4 | 

wn ITF |1U,1 1 6) M ,o 
170 M = I 


MA IM9010 
*$$$****£ s^SMAl M907 0 
MA 1N9030 
MA I MO 040 
MA 1 090 50 
MAIM9060 
MA I M9() 70 
MA I N90R0 
MA 1M9090 
MAIM9J0II 
MA 1 Mo l 10 
M A J M 9 1 ? 0 
MA 1 M9 1 30 
MA | M91 40 
MA 1 W91 60 
MA I M9 I 60 


Li ’b 



nn l?* .ia? f Nr. 

M = 1 1 +NFnn 
17* At 1 1 )=A( n ) /n 

no i?n j= i . mm « ,M pnn 

TF ( AUI.NF.P.I MAXIM I I = . I 

i’n r.oMUMiiF 

•ii. = i + i 

if ( ji. . r,i .nfor ) r;n j n ?on 

U = T 

nn ?on js.ii. ,nfor 
1 T = 1 l+NFOR 

1FU!.P1.mmh) r,n 7n ?nn 

r. ~ a ( m 

IF ic.FO.n.n) f,n to ?nn 

r.=r.*A( i ) 

KK = ,1-11 
MAXsMAXRf 1 ) 
no l*n ,?,l = T ! * MA X * MFflR 
1 So A( .l.l + KK ) =At .1 ,1+K K )-C*A( ,1.1 ) 

KK = ,f + NMR 
.1.1 = i +mm r 
nn 17* i.= i,u. 

A( KK )=A( KK ) - f. * A ( .1.1 ) 

KK=KK+NFOR 

17* .IJr.lJ+MFOR 
?nn r.nwHMiiF 
Ron r.nMT iwiiF 

MR 1 TF (NMKS) A,MAXR 

p***** ****************************** ************ 

f SI IR S7 T 1 1 '7 F IWTP RFMA JM | MH FOMA 7 1 PMS 


HA 1 MM ] 70 
MAJN91RO 
MA 1N91 SO 
HAIM9700 
HA 1 MS 7 1 O 
MA I NS? ? O 
MA J NS? .-iO 
MATNS?40 
MA I MS? *>0 
MA ) MS?40 
MA IMS? 70 
Mi A I MS? R 0 
MA 1 MS? SO 
MA J MS?00 
MA I MS 3 10 
HA I MS VO 

MAJNQ;H0 
MAIMS?4(1 
MA J MS. 4 SO 
MA I M9?M) 
MAI MS 4 70 
MA I MS?H0 
MA | MS H SO 
MA I M94O0 
MA JMS410 
MAI MS 4? 0 
MA JMSAJO 
MA I NS 440 

***********************MA I MS4S0 
MAIMS440 


p ************* * ********************************************************* MAJN 9 470 


nn pop nm= i ,mrr 
I f ( M+wM.nr ,M«i.nr.K ) c;n to hoo 

M T = Ml 

f F c M.FAJ J MI=MMR(, 

T f f mm . F n . mrp j m | aMnp n 
n F A n ( mi ) n 
T i. = i + mm #m f or *nf or 
nn 7 oo i =i .nfor 
T T = T I. 

nn Aon k=i ,mfor 

TF (TI.07.MMU) on in 4 on 

r. = A( in 

IF IC.FO.n.n) f;n T»> 4oo 

r=r.*Ai k > 

MAXaMA/Rf K ) 

KK = ] - I T 

no 44 0 .1.1= I I .MAX ,N FOR 

440 R ( .IJ + KK ) =R( .l.l + KK ) -f.*A( .1.1 ) 

KK = l+MMR 


MAT MS4R0 
MA I MS4S0 
MA I MSSOO 
MA T MSS 10 

MA I MS 5 ? n 

MA 1 MSS AO 
MA I MSS40 
MA IMS'S SO 
MA I NSSM1 
MA T MSS 70 
MAJNSSHO 
MA I MS SSI ) 
MA I MS 4 00 
MA 1 MS 4 1 0 
MA I MS4?0 
MA 1 MS4 40 
MA I MS 44 0 
MA 1 MS 4 SO 
MA I MS 44 f l 


.1.1 «K +WHH 

nn 4sn i. = 1 , 1 . 1 . 

R( KK ) =R( V K )-C *A( .1.1) 


MA I MS 4 70 
MA J MS4«H 
HA l MS4SO 


Kk=KK+MFOR 

4S0 .IJs.l. l+NFOR 

400 I r= I T-TWO 

7nn Ti. =T L+nfor 

T F { MRP . nf . l ) f,p in /so 
I'm 7 Art I ■=) ,wsn 
7 A O A t I )«» I M 


MA I MS700 
MA 1 Ms7 10 
4 A T m S 7 ? 0 
HA I ms 7 -ut 
MA 1 MS 74(5 
MA I MS J S( . 
H A T MS 7 4/1 


Q. 18 



r;n to «nn 
7*0 wr f l F (N?) H 

won cnwiiMiiF 

MrNJ 
Ml = M? 

qnn m? = m 

f , ********* £* 4 * S **<«****#******<:$* *******«***=*** 

r RAtK^MRSl TTNTIOM - PFS.llLTS nM TAPF Ml? 

********************************** *********** 
i.S=L1.*NFnR 
MFReMFOR ^ f MHH + 1 ) 

W|IM = MRR*MFOH 
MftX = MFR*U. 
nn on*; j = i ,ma y 

9or R( i > =o . 

RFwjwn M7? 

on inno m= i ,NR|.pr.K 

RAr.KSPAC.F MHK.'s 
PFAO (NRKS) A * M A X R 
RAf.KSPACF NRKS 
nn qi n i. = i ,i.i. 

Ksl.*MFR 

nn nin .1 = 1 v miim 

JsK-NFOR 

HI K ) aH | T ) 

910 K =K — 1 
T a MM fj 

nn o?o i = 1 ,|.|. 

K = ( I. - 1 ) *MF R 

nn o?n % i=i,nfop 
1 = 1 + 1 
K=K + 1 


M A IMQ770 
MA?N<J7Rfl 
MA 1M9790 
ft A ! M9H00 
MA 1 N9H10 
MA f M9R?0 

***** ** ***** ********* ****f<iA JN98 in 

MAI N 9 R 40 

*************************hiAIN9R50 
MA | MORfiO 
MA JM9M70 
MAI N9HH0 
MA IM«jH90 
MAJN9900 
MA (NqtJlO 
MA I M99?0 
MA 1 M99.40 
MAT N9 940 
MAJN9950 
MAJ N 99 M 1 
MA | M9970 
MAIN99R0 
MA 1 N9990 

MAI Mnnno 

MA 1 MOO 10 
MA ! N00?0 
MA I MOO 30 
MA | M0040 
MA JMOObO 
MAIN0060 
M A ] MOO 70 

ma 1 Monnn 


9?0 R( K )=A| n 

nn Q4R T-l , mf rm 
.isMFnn+i -T 
MAXsMAyRIJ) 

TF ( Af .1 ) ,Fn.n. ) r.n in 055 

nn qho i 

KK=.| + ( l.-l ) *N F H 
,I,I = KK + 1 
n.*,l+NFnn 
r=n (KK ) 

nn 940 I I = II. ,MAX ,MFOR 
r.=r.-A ( 1 1 )*r(,i,i ) 

940 ,|.| = . 1 . 1+1 
*»Rn pfKK)=r. 

qrr r.nwT i mi if 

1=0 

nn Qisn i. = i ,i.i. 

K= (1.-1 )*MFR 

nn oftn .1 = 1 ,mfoh 

KaK + l 
1=1+1 

9An A ( T )=H(K) 

MR I T FI MT?) ( A ( I ) , Is ] ,l.s ) 
inno r.OM ir Ml IF 
pf rupM 

114 FOR MAI r^?MO«;Fl f'F hOf IA 1 I ON^ MAY «F MNMM.AP / 

# ?4H n 1 AGPM Al. 11-104 ill- FflUAll/’M ,)«. HH |-f )l I A|. S tlf*M?.4) 


MA 1 M0090 
MAIMOIOO 
MA [NO] 10 
MA | N 0 i ? o 
MA IW01 -10 
MAI NO 1 4 0 
MA IN01 50 
MAI MO 160 
MAI NO l 70 
MA 1 MO 1 HO 
M A I MO 190 

ma i mo? no 
mA i mo? in 

MA 1 NO?? O 
MA 1 MO? 40 
MA I M 0? 40 
MA | NO? 50 
MA I NO?M) 
MA 1 NO? 70 
MA 1 NO? HO 
MA !N(>?90 
MA 1 MO MOO 
MM NO -HO 
MA | mo;-j?o 
to A | M 0 -J -J O 
MA 1 M0>40 
MA I NO 4 50 


E MA 


MA | Ml r - tM » 
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SI IHRnilT t WF PRIN1IK Vn 9 n v H«NFOH v NMMMP,|.L«NBI.nr.K»NF0t \?t 1H, IW.KORF ♦ MAIN0370 
1 KPRTM7) MA|NO?PO 


c * * if * -tf * * * * -ff -f, # -ft * it & * £ * * * * * * * * * « * £ £ * A >> ❖ * * * # * * >!» # £ £ # « £ * * ^ * £ * < « : # £ « * £ $ ^ # # M A J N 0 '4 4 0 

f PRINT NORM, nt SPLAf.FMFMl S flR RUCKLING MnnF SHAPFS MA 1 N0400 

**##***<«#>*: #-: s!i £& $$$ ft «$$#$$$$$$#$ ft # $$& 4 * ;* M /\ | N 04 1 0 


IMPLICIT RFAI.*8 lA-H.fW) 

RFAI. *4 D 

nTMFMSJPM in(M|)MNP v A ) ,n(M.I.| ,R(NFOH,M. ) 

RF«IMp IR 
R F A n ( J P ) in 
I FC KPR iMT.FP.n) KFTIIRN 
GP TP ( I , ?) ,KnnF 
1 WR T T PC 1 w ,? nn ? ) 
on in ? 

p writfi | w,?onR) 

^ RFMINn IP 
m=mfp 

NN = MF OP #M R |_ PC K 
NsNIIMNP 

PP SOP KK = 1 * Ml IMMP 
1=6 

no ?so n = 1 .8 
nn ion i. = 1 .L L 
mo oil ,i. )=n. 

IF(M.OT.MM) on to i so 
TF (M.FO.OI GP TP ISO 
R^AO( I?) R 

nm^mm-mfor 

ISO IF( 1 0 ( M v f ) # I T , 1 ) on TP ?S 0 

K sM-MM 
M-M- ] 

on 700 |.= 1*U. 

?00 n( I # |_ )=R( K ,1.) 

?sn T = T-i 

WR T T F ( IW,?00A) m * ( L • ( o( I * L ) « I = 1 ♦ * 1 • L = l * 1. 1 ) 
son m=w-i 
RFTIIRN 

POO* F PP MAI f R4H MPPAI. 0 T SPI. ACF MFM 1 S AMP RPIAlinNS// 

l SH MPPF ,SM |_P AIT ,1 IX i 1 MX ,1)X . 1 HY ,HX , 1 HZ , 1 OX ,?HXX, 
? 10X « ?HYY • 1 OX » ?H7 7 / SH NO. ♦ SH C ASF /) 

POOL FORMAT ( IH f !A, is ,1P1FI?,T,3F1 ?.A/( J1 0. SF 1 ? . S . 3F 1 ? .4 ) ) 

?0 OF FORMA 7 ( R(/CKf. fWG MPPF SHARPS // 

1 SH MnnF ,SH MPIJF . 1 1 X * l H X ,11X • 1 H Y ,UX « 1 H7 »10X ,?HXX, 
P ]0X .7HYY , 1 ox # ?H7 7/ SH MP. . SHSHAPF /) 

FMn 


MA I N04?O 
MA IM0440 
MA] M0440 
MA IM0450 
MA I NP4A0 
MA IM04 70 
MA I M04R0 
MA ] M0490 
MA I MOSOO 
MA IMPS 10 
MAI M0S7P 
MA I NOS 30 
MAIM0S40 
MA 1 NOS SO 
MA l NOS 80 
MA1MOS70 
MA I WOSRO 
MA 1 NOS 90 
MAIMOAOO 
MA] MOM 0 
MAT N() 8? O' 
MAI MO 8 30 
MA I NO 640 
MAIMD850 
MA I NO 660 
MA 1 MO 8 7 0 
MAIM06P0 
MA IM0890 
MAI NO 700 
MA 1 NO 7 10 
MA [ NO 7? O 
MA J M() 7 30 
MAI M0740 
MA J MO 7 SO 
MAIM0760 
MA IM0770 

MAIM07H0 

MA INO7H0 
MA I MO POO 

MA 1 MOP 1 O 


03 ‘b 


siirrphumf sir f ^s i api.o* astp ♦ lpao » s tr • r ♦ n, ll « lr *nfo tNiiMov ,mfor , maimorpo 
1 a .m rnT«i.Rur.K , jwnF r , IOFSn. 1 1 , 1 ?, 1 1 r, 1 1 1, 1 vi ) ma ] nor. ho 

f ;* $$ ***##*#«:*** *# *$*#*!*:<: ## £#««# * j); * <c * * * * >>* #$$«£ #>*: ****4: if #**<«#*** MA I NOR AO 

r. C&I.CHUTF STKFSSFS +1AIN0H50 


OTMFMSinM S TR( A 1 1.1. ) «0( MFO * |_R ) tl.PAOI N1JMDV ) v APLO( NIJMDV ) ,ASTR(NUMp\/) 
1 * A ( MTPT ) 

RFAI_*n R(MFnp*|.|. ) 

r.PMMPN /FI. PAR/ NPAR ( 14) , MIJMMP , MRANI) , NFL ] YP , Ml , Mp , N?,N4 ,NS , Min , 

1 FI.Pl o ) .MRI.nr.K 
COMHOM/JIINK/I. Ttl.H«,l|IN( ) 

RFWfWB II 
RFAOI ! 1 ) <;tr 
RFAD( I 1 ) ASTR 
RFApf 1 1 ) API.P 

f filmic* .fo.o) r,n jn poo 

I F f TNDFT.NF.n. AND. f hFSN.KT.P) OP FP POO 
RFwrwn f 1 1 
r f w i MO i ^ 
poo r.pNT ini if 


MA IM0B70 
MA TNORMO 
MA INOR90 

mainonoo 

MA JM0910 
MAJN09P0 
MA fN09?n 
MA I M0940 
MA IM0950 
MAIN0960 
ma 1100970 

MA I M09RO 
MA IMO990 
MAIN) 00(1 
MAINlfHO 


C PRINT OF S 1 ON VAR I ARI.F ARRAY FOR CMRRFNT DF S I GN MAIML030 

f **##*# *#####*<:**#** **«*«* *«*»!** *4 *#****##<« ********#*#)>*** *#*>!«# *>{!**>(! <t **3}: M A I M 1 040 


CAI.I. n PR TNT I Ani_0,MUMnV,lVJ) MAIM 1050 

OP 111 I=],MIJM|>V MAI Ml 060 

111 I.PAO( I)=0 MA 1 M 1 () 70 

mt= li.i.-i ) /i.r +i MAiMirmn 

1.M=n MA1M1090 

np ionr u = i,mi maimuoo 


C MOVF 0| SPLAf.FMFNTS IMTP CPRF FPR LB I.PAO r.PNMM IPNS ma I M 1 1 ? 0 

r.Al.L MOVFOI R* n t NFPR*NR|.nCK t MFO*I.L *l_R«L H tLT , IP) MAIM] 140 

f^****# ************#*«!'*#>!«*#***!' I Ml 150 

n CALCIII.ATF Fl.FMFNl STRF.SSFS AMO PFR FORM Fill. I. Y STRFSSFn OFSIAM MAJMllM) 

C FPP i.r I.nflp CPNniMPNS MAI Ml 170 


nn innn m=i t NFLTYP 

MA IN1190 

RF AO HR) MPAR 

MAIN! POO 

MTYPF=MPAR( 1 ) 

MA 1 N IP 10 

MPAR ( 1 )=0 

MA I N 1 PPO 

r.Al.L F1.TYPF I A tMTOT *MTYPF • I W ) 

MA IN1P30 

rnwiiNiiF 

MAIN 1740 

WRITFC 11 ) A9TR«I.PAn 

MA IMIP 50 

RF1IIKN 

MA I N 1 P60 

FMO 

MA I NIP 70 


T2 ‘b 


fslIRRHUllWF nPKfMT (A. MV ,1*4) f. A ! M 1 ^ H 0 

p.*#*******##*#*# ******fr#«**#********##***#**$*#S*« S**#***## *#«**«* I NIP 40 
C PR | Ml pF51f,M VARlARI.F ARRAY MA I N 1 ?00 

nTMFMSIPN A f MV ) MA?N13?f> 


MR l TF( JH, 1 nn 6 ) 
mrpw= rwv-i ) /] 0+1 
nn ppn ns 1 ,nrpw 

Mzr f M-l ) *1 O 

I 5 TAR r=M+l 
I ^TPpsM+i n 

TFf T^mp.fJT.MV) I51 pp=mv 
PPO WRI1FI ?W, 1007) M,« A( I) , fsI^TART, ISTHP ) 

PFTURM 

lf>n /, FPQMA1 1 / / ? RH VM.IIFS OF OF 5 | <;M VAR 1 ARl.FF // 

1 1 ?FM 1 ? 3 

? 6 7 » 4 


MA JM1 330 
MA|M) 340 
MA | M ] 350 
MA I Ml .360 
MA INI 370 

MAIM] 3H() 
MA 1 N 1 340 

MAIN] 400 

MA I MIA 10 

MM Ml 4?0 
4 5 MA ]N1 4 30 

10 / IMAIM1440 


inn 7 FORMAT! 1H « I *1 « 1 OF 1 ? .4 ) 
FNn 


MAIN 14 50 
MAIN] 460 


snnRom inf movfoi w,n # MFfm,NRi.ncK ,w f 0 , 1 . 1 . . i.r,lh*i.i * 1 ? ) mainia7o 

p* ******* ******** *£«*«****£ **£*****$***£*:(:* ^ £*£$**£*****$ S * * $ * tf $ M A ] M 1 4 R 0 

C MPVF PI SPl.Af.FMFNl S I N TP f.PRF FPP |_» l.PAn CPMnilfPNS FROM 1APF NT MAIN I 440 

£ ft******************************** ft ******* ***************************3*^6 I M 1 *500 

nfMFM^IPN ni NFO, | n ) MAIN] Sin 


RFAI.*ft R( NFPi* ,|_|. ) 

RFWTNO I ? 

t. T =1. H+l 

1.1. 1 a 1 -1. 1 

I.H=L T+I.R-1 

r F ( l.H. <-7. 1.L ) I.H*I.I. 

MO = MFOM *WRI_pr.K 
np pno nm = i, MR|_ nr.K 
pfap( \? ) R 
MsNFPR 

]F { MM.Fn.l ) NsMFO-MO+NFOR 
NO=MP-NFPR 
nn poo .1 = 1 • n 
I =Np+.» 

nn poo i.si.t •» m 
K=l +1.1 1 

POP n( I , k ) sft ( .1 • 1. 1 
p F T up n 


MA 1 Ml 5P0 
MAI Ml S30 
MA ]N} 540 
MA I M 1550 
MA IN] 560 
MAIM] 570 
MA I N 1 5 RO 

MA I M ] 540 
MA I M 1 600 
MAI Ml 610 

MA I N) 6P0 

MAIM] 630 
MA I Ml 640 

MAIN] 650 
MA I M l 6 60 
MA I M ) 670 

MA f M 1 6 HO 
MA I Ml 640 


Fwn 


MA 1 Ml 700 


Q. 22 



SimunmiMF SIRSC. ( Ani.n,siR.n.NFn,MHMnv,u_,i.R,NTAr,) main]710 

r SFT IIP STRFSS MATRIX AMP CAI.CHLATF STRFSSFS MAJM1730 

f, $#4 #*«$&£ 44$ #£44: 4? -I ^ -w I N 1 7 A 0 

R F A I. * P pl,P?,SU.Sl?.ST,P ,G1,G MAIN] 750 

niMPMsinw stp( 4,ii_ > ,n( mfo,l* ) « api_ii( niimdv) ,PHl‘s^),p?(i'j,A), ma in 1760 

1 STK m,?4).ST?(1S,?41,Gt (?4,?4) MA I N 1 770 

rnMMriM/.|IINK/I.T v LH s l.,SG( ?7 ) , I PV AW , I F X * FKf. « AR F A , X I NfR T » OF S I NF I 33 3 ) MA JN17H0 

r,PMMnM/FM/N|l,MW,NS*A‘P,I.M( ?4 I . S T ( ! S , ?4 , ? ) , P (1 S . 4 , ? ) f U ( ? A , ?4 , 3 ) , MAIN] 790 

1 M<;r,( 3 ) ,FM1 ( 3«1) MAIM 1 HOO 

r.nMMPN/CnMTH/ir. (4) , f riF S M * TC? I A ) .I.HIITK , I r 3 ( ^ ) t 1M0FT* IC4U0) MAIN 1810 

r.PMMON/IJMI TS / IR,1W,|P. 11, I?, 13, 18, 19, 110,111,11?, 113 MA1N1870 

PDIITVAI FNf.F (Pl,P).(P?,P(4ll |,l«i1,S!l ),(SH3M ).S1?> ,(01*0) MA J N 1 H.30 

if (mtao.fo.o) r,P tp «nn mainip4o 

w l. = l.-l.l + 1 MA INI 850 

nn 3 nn f=i ,ns majmirm) 

sgi I )=n.n majm] m7(> 


nn 3nn .1 = 1 ,4 

?nn SOU ) = SGf I )4P) (I ,.l)*STP U*U 
nn son ,i = i ,wn 
t=I. M l,i ) 

I f ( , i.i .Fn.n > on tp son 
nn 4nn i = i »ms 

Ann SG( T ) * SG ( 1 )+ST1( I ,.l)*n( .1.1, Ml. ) 
son r.pMT t mi i f 

TF( LRHCK .NF ,1. ) RFTIIB« 

TFIinVAP.FP.O) KFTUKN 

T FI I MOF T .NF .o.ANI). jnF SN.GT.O) PFTIIPN 

np 7nn i=i,wn 

nn 7nn .1 = 1 ,mo 

ss=n. 

nn 7Sn k=i ,ng 
KK=MSG(K ) 

7S0 SS=SS+G( T ,.l #K ) *SG( KK ) 

G1 I T ,J)=SS 
70n G1U, T ) = SS 
NN=Nn#Nn 

TF(N0.NF.?4) CALL RFARAN( G1 «G1 ,?4,?4, 1 •MD.ND, 1,MN) 

CM.L FI.GSTW(Nn,I.M,(;, 131 
RFTIIPN 

pnn RFAOI TP ) Nil, MW, NS, Mil. IPVAR , IFX.FRf. , M M ( J ) , I = 1 .Mil) , ( I ( ST ( I , ,1 . K ) , 

I 1 = 1 ,NS) ,.l = ] .Mil) |Ks] .Nil) «( l(P{ 1 , J,K ) . I =1 .NS) ..1=1 ,4) *K=1 »NW) 

IF ( jnVAR.FCl.O) RF TURN 
TF( i.Riir.K .Fn.m on in i?o 

IF ( TWpFT .MF.n.AKin, IPFSM.OT .O) On jn ) ?n 

PF AP( 111) NG,( i(G(T,.l,K),I = l .MO) ,.|=1 ,NP) ,K = T ,NG) , (NSGI 1) , 1 = 1 ,Mfi) 
1?0 ARFA= API.TH I MW AH )*FPf. 

X I MFR T = A RF A *>£‘1 F X 
nn 100 1=1, MS 
nn i m .1 = 1 .4 

mi P] II ,.l 1=PI U )*ARFA 
nn ion .1 = 1 ,mo 
inn Sill ! ,J)=ST1I I ,J)*flRFA 

RFftni TP) N | ,( nFSTNFI I ) ,1=1 .Ml ) 

TF (Mii.Fn.i ) on ir Qon 
nn inA |=i,ms 
nn 1 04 j=i, mii 

l 04 ST if 1 ..l)=STl( T ,.I)+ST7( T • .1 ) *X I MFP T 
cmn if (MW .Fn.n pftmrm 
nn i os |=] ,ns 


MA 1N18H0 
MA T M 1 MQ0 
MA I MIS CIO 
MAIN) 9)0 
M A 1 M 1 9? 0 
MA 1 N l 930 
MAJM1940 

MA I N 1 950 
MA I N 1 960 
MAIN]970 
MA 1M19H0 
MAIN] 990 
MA 1 N7000 
MA] N ? 0 1 O 
MAJN7070 
M A*I M ? 0 3 0 
MA ] N?040 
MATM70S0 
MA J NP 060 
MA ] N?07(l 
MAJN70R0 
MA ] M? 090 
MA |N? 100 
MAIN? ) 10 
MA !N?1?0 
MAIN? 130 
MAIN? 140 
MAIN? ] SO 
MA |N? 140 
MAIM? 170 
MAIM? 1 HO 
MA IN? 190 
MA TM?? 00 
MA I M?? 10 
MA ]N???0 
MAIN?? 30 
MA JM??40 
MA I M?? 50 

MA 1 M?? 40 

MA [N??70 
MA IN?? HO 
MA | M? ?90 
MA IN? 300 
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nn i n* , 1 = ] *4 

10*? Pl( 1 , .1 ) = Pl( 1 ,.)) + P?t T • J > 
RFTflPM 
Fwn 


MAIN'? 3 lf» 

MA }N? J70 
MAIM? 3 HO 
MA 1 N? 340 


S1IRR0IIT IMF FI.GS7WI MO.I.M ,0 « I 3 ) MAIM? 3 50 

£#***.********** ************* t*#**#*** ***** it**#*#** $%**#****# #*##*****###14^ J ftf? ^^0 

C up If F GFOMFIRIC STIFFMFSS matrix mm tapf n MA I M? 3 70 

£**#**$£•.*#**>,’:*$ **(*<:** *** *tf ******* ** £**);-£*£*** A * « ^ ^ ^ ^ ^ ^ v ^ * Nl A l M? ?R 0 

I M Pt_ T r I T RFAI_*fl { A-H, M — 7 ) MA]N?390 

niMFMSinw i.m( mh) ,ai miumpj main? 400 

|,Rn = MD*Mn MAIM? 41() 

uRTTFii?) i_Rn,Nnj.M,r; maim?4?o 

RFTIJPM MAIN7430 

FMP MAI M? AAO 


PZ‘b 



SI IRR ni IT I MF BftNAI. ( A • AD*M‘IP I *M1P T7 J MAJN7450 

C4fr****«S**** **£**** 4 **£****:!:*$* *44 4 

C RUCKLING ANAL YS I S AMP OFRiVATJVFS MAJN7470 

C**$* #!>****«##* ***#**£$£**#*** #«£ *#**£«£* fr*^**********#**#***,;!*****;^**:^ | |u;>4H0 
niMFMSinN A ( M T fl T ) MA1N7490 

RFA|.*R AD ( M1P7 7 ) ,S,FV,FVFC ,G.FVA). MA1N7S00 

COMMnN/CnNTK/ ICYCI. ,WCYf.l. * 1 Sf.Al.F ,N.Sr.ALF,KSCA|.F,KnNVG, IDFSN, !WTM1N,MAIN?S10 
lW1M1N,FP<s||_,nFUAt • OFL1 A? , K PI IMf.H , LHIJCK f NVFC *NMPnF t LH1 * ALP A , I NI)F T MAIN7570 
?«KPRINT t nMFGA,cnFFFT, < ;MAX , MMAX .NRIIC.K ♦ SF . 1 S ♦ KPD • N HP HMD MA I N7 *j 30 

COMMON /FI. PAR/ M PARI 1 £ ) , NllMNp , MRAMP, NFL 7 YP,N ] , N? , AH , N4 , NS , M 111 , NFO , MMN7S40 
1 MIIM FI. .NIIMPV .Ml , l_ L « I. H . M F OR » M HI. PC K MA T N? 450 

cPMMPM/iiNns/ iR,iv,]p.ii,i7,n,ifl,i9,iin,m*ii?,ii3 ma i m? 5ao 

COMMON /.|l INK /FV( 4 ) ,£{ 4 ,4) ,ft( 4,4 J ,FVFC(4,4) ,FVAI.(4) , JUM< ?SM MA I N7 5 70 

no QQ J = l,MMnnF MA | N? 580 

99 FVAI.C T )=0.0 MAJN7590 

A r } = 1 M A 1 M 7 6 00 

TF( IMOFT .MF .n.AMn . inFSW.GT .n ) GO TO 100 MAIM7610 

f 44**444* ***# *44*44 4 *4 #*##*4 4444 4*44 44* 4* *44#**4*s!:*4444«4JC£44*44<:4«ii:4*4 4*M A I 
C ASSFMRI.F GFOMFTRIC STIFFMFSS MATRIX MAJM7F30 

C 444 44444 *4# 4 44 4**4 4 444*4* 4 *4*444 *44 4 *4 ** 444444444*44 44444*4 44 4 44# 4 44 4 4* MAI N7 640 

TG=I10 MAIN7A50 

T F ( IM0F7. FO.O ) GO 70 101 MA1N7660 

TG= 1 1 1 MA I N? 6 70 

RFU'JMn IG MAJM76H0 

101 CONTI Ml IF MAIN? 490 

MF7P=NFOR*7 MAI N7 700 

■ Ml IM F=NI IM F |. -N RO| INf) MA f N? 7 l 0 

CALL ADGS 7 Ff A 0 | M 1 ) , Ml IMF , NAI.PCK , NF ? W . MRAWO , I 3 . 1 9 . ! G ) MA1M7770 

C4444444444444 444444*444444 *444444*44*4 4 44444444 44444444 444444444444 4 4 44M A I N? 7 '40 

C FjMOOin 7 TRAMSPOSF 4 K 4 7 MAJN7740 

£444444444444444*4444444444444444444444444444444444444444444444444444444)4A1M?T50 
ion COM 7 1 Ml IF MAIN? 7^0 

POO MM=( MFOR+MRANO- 1) /NFOR+1 MAIN? 770 

MM=MM*MFOR MA I N? 7H0 

MrMR ANO + LL MAIM? 790 

MP? = M1 +MFOR*M MA I N? ROD 

MD 3 = Mn ? + ( M M #N V F C 1 MA 1 N? R 1 0 

M4a ( NO? +MM*NVFf. 1*7 + 1 MA]N?H70 

IFIN4.GT.MT0T) CALL F RRflR { M4-M TOT ) MA I N7R 30 

RFWINO HO MA J N? R40 

CALL Mill. RANI A0( N 1 | , AW Mil? ) , A0( Nn3 ) .AIRLOCK , MR AMI1, M.NVFC ,NFQR .MM , MA JN?Rf>0 

1 TIP. 113* TO. SI MAIN7R40 

f44444444444444444*44 4 4444444*444 44 # $ # * £ 4 4 4 4 * # 4 4 * 4 4 4 4 4 4 * 4 4 4 4 4 4 * 4 4 4 4 4 # 4 4 4 M A ] N? R 7 0 

c FIMO 7HF PROnilCT 7 TP ANSPPSF * G * 7 MAJN7RR0 

f* *444444* 4 4*4444444*4444444 444444**444 444444 *444444444444444*444444444#MAJN?fl90 
T F ( 1M0FT.MF.0) R F 9 T M O IG MAJN7900 

CALL MHI.RANI A0( Ml ) ,An( NO? ) .Af)| NOT 1 « NHLOCK .MR an n, MR an 0 , NVFC t MFOB . MAIN7V10 
1 II ?, |P.G) MA I N? 97 o 

f4#*4444 4*4444 ** *4 4*4 4 4*4444444444*44 44444*444*4444*444444444* 4444444 444 foA | M?C» 30 

C C0MPII7F F1GFMVAI.IIFS (F\/) AMO F I GFMWFC f PR 5 IFVFC) MAIN?P4P 

C * <:#**#**>># ****###**# *«#*** *»#*****##* ***>!:* *#***$£# *$$$MA 1N79S0 

CALL F|G.IACIS,G,FW,FVFC,MVFC) MAIN?9M) 

C*Jfr * ** # *#**^:***3(r# ^: ****** *«****-:« & $ £ # $ <: £ « $ # $$ £ # g $ $ $ $ $ $ $ <c 4 $ # # $ 4 $ M A ] N? P 70 

C CHFC.K JF F1GFMVA1JIFC HA VF CPMVFRGFO MA1N?9M0 

C *####*#«#«# #*##****#*#*«<:*<:»#*#* IN? 990 

MC=0 MAIM 3000 

OP 700 T=l f NMPI)F MA J M 30 1 0 

IF (OARS IFVM I-FVAI. ( I 1) -GT .OARS CFV II 1/700) »NC. = 1 MAIM 3070 

?0O CONTI MtJF i3A T N 30 3 0 

#**#*?«« ****##*# *<:***# #4 #«»MA 1 M 31)40 


NJ 

01 


C criMpniF fMpRpvFn cpproinaif vfctmhs 7 mauhoso 

£ **************** $$ 44 :$ 4 * ******************** ****** ***************** *****^£ | f.| 3()f,{) 


no ?*n f = i ,wtfFf. 
?90 F V A | M )aFV( M 

Mr)7 = Ml +MF flR*MW AMI) 


MA ]M.A0 70 
MA I N?OHO 
MA !M-i090 


Wp*sMn?+MFn«*NVFf. 

MMaMAANf) + l. |. 

NM-s MR AMP+Ml/FC 

CALL *;FTF ( A P ( M 1 ) . AIM Nil, Al)( MU? ) , A0( Ml 1 3 ) , FvrC t NF(.IR « NVFC « NHI.PCK , 

1 MM ,MM,MRANP, I 3 . fn, | 1 p ) 

MSR = MFOR*( MHAMD+NVFC 1 


MAI N3 inn 
MA I M3 1 L() 
MA I M3J70 
MA t M3 L 30 
MAI M3 1 40 
MA IN31 50 


MpcNl +MFPR 
Mr»? = M?/7+l 
Wn3 = M|)7+MSR 


CALL fISni.f A( Ml 1 ,AII( MO? ) , All( MM3 ) , NFtiR , M R AMI) . N VF C » NMU’CK * N SR , 
1 n.T1?*IO*!7. IW) 


MA I M3 1 60 
MA I M3 l 70 
MA JN31H0 
MA 1 N3190 
MA I M3? 00 




C 1RAMSFFP 1 MPR nvFD CPnpniNAlF vfcimrs (7) from iapf I? 7(I IAPF 113 MA 1 M3?? 0 

£****3 ********************* ********************************************* m IN 3? 30 
PFWIWn II? MAIN3?A0 

MM = MF OR*MV FC MAJN4750 

no Ann N=i,NRi.nr.K maim??6o 

rackspacf I? MAIM?? 70 

RFAP(T7) «API I ) , 1= 1 ,MM ) MAIM ?? RO 

WRITFUm ( AIK n , 1*1 ,NN) M A I N3? 90 

Ann rackspacf i? maim?3oo 

IF(MC.NF.O) on TP qnn MAIM3310 

F ***** *********** ******* ****** ****** ********* *********** MA 1 M?3? 0 

C FIGFNWAI.IIFS HAVF f.PNVFRGFO - PRINT I HFM MAJN3330 

C COMPIITF ^ 1 PC 1C TURF MPPF SHAPFS MARJ33AO 

£************************************************************* **********|riA]N 3350 


WRT7F( IW, innn IFV( n , 1 = 1 ,NVFC ) MA I M3 360 

Mn? = Ml +MFOR<-NV/Ff. MA I M3 3 70 

CAI.I. S.MPPF ( An(N] 1 , AP(Nn?l ,FVFC,NFOR,MVFC,MRLOCK,MMPnF, 13, I? I MMM33RO 
TF( KPR tMT.FO.O) RFTMRM MAIN? 39 0 

f ****** ******************************** ***** **************************** pi &IN 3 4,0 () 
C PRINT MflPF SHAPFS MAJN 34 1 0 

f********** ************************************************************* MAj M?4? o 


M? = M1 +MI)MfsJp*|S 

N?=N7+F*NMPPF 

MP3=M3/?+l 

RFAPI TP) I All ) , 1 = 1 .MIIMPV) 

R F W T MR 19 

WRT1FIPI (A(T)«I»l •MIIMPV ) 

CALL PRINTS A( Ml ) ,A (N7 ) , AIK MP3 ) * MpOH • NI/MNp , M MflpF ♦ N RLMCK * NFTJ • 
1 T 3 , I r , F M,7 ,KPR TNT > 

RF TURN 

1001 FPRMAT(//?SH UHCKI TOO LPAP PAW/vMFIFPS // I 1 X , 6F ?0 . S ) ) 
pmm 


MA I M3 A 30 
MA T M? A AO 
MA IN. 44 50 
MAIM3A60 
MA ) N3A70 
MA IN3AH0 
MA 1N3A90 
MA I N 3 *> 0 O 
MA1N35J.O 
MAIN 3570 
M A IM4540 
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SIIWROIH INF AOGSlFC A, NIJMFI. .NRI.OCK ,MF?R t MRANO f 13*19, |G) MA I N3540 

C ASSFMRI.F GFfiMFIRir S11FFNFSS M A 1 R J f. F S MAIN35AO 

*******£* #***£* #<t *$ £**!**# *****$$ $#$:}(:£ $$$$« -r ft*# ##«):#<£ $ Sjt Sjt * !> 4! * $ * # # * $$M A I N 4570 


TMPUrn RFAI.*P { A-H.n-7 ) 

DIMFMSIDM A( NF?R *MHAMn ) 

CHMMPM/FM/I.Mf ?4) ,SSf 67? ) ,FMM<;>n<in) 

MFOR = MF- 7R/7 
krrMFnH+1 

x = mr i.nr.K 
MM = nsnp7< X ) /?+] 

MFRR=MR*WF ?M 

MM = | 

Ml IMQsO 

MSWTFTrO 

no innn m = i .mri.pck .? 
nn inn j=i,mf?r 
nn inn j=\ f MRANn 
ino MT,j)=n. 
r F w T wn in 
RFWfMn i ? 
ma = !Q 

M|IMF = NIIMQ 

IF ( MM.MF.l ) go TP 7 5 
M A = I * 

M|IMF=MriMFl. 

MHMOep 

75 nn 700 N = 1 f Ml IMF 

R F A n (MA) I. P 0 , NO • ( I. M ( T ) 9 I ~ 1 1 
nn Ann i -\ ,mo 
1 ) 

I T-l.Mf I )-MSH]FT 

if u i.LF.r.np. i i.(;t.wf?r) gp m 500 
nn son j = i ,no 
, l.la|_M(,l ) + |.MN 
IF(j.i) 500,500,300 
■aon KK=Mn*j — no 

A( II *.l.l ) =A( I I ,.W)+SS( I+KK I 

SOO COM II Ml IF 

Ann r.nNTfMiiF 

f ******** ££** ********************** ****#*$****#$*#$ 


* mo ) « ( ssn ) , 1 = 1 ,i.ri>) 


MAI N35R0 
MA IM3SO0 
MAIM3AOO 
MA I M 3ft in 
MA I M3ft/* 0 
MA l M3A30 
MA I N3ftft0 
MA I M3ft 50 
MA I M3 660 
MA I M3 ft 70 
MA I M3ftR0 
MA] M 3ft 90 
MA I N37nn 
MA I N.47 1 n 
M A | M 3 7? 0 
MA I M 3730 
MA I M 3740 
MA I M37S0 
MA I N 3 7 ft 0 
MA I M3 7 70 
MAIM37H0 
MA I N3790 
MA1M3HOO 
MA ]M3H1 0 
MAIM3R?0 
MA IN3H30 
MA I M3R40 
MA IM3M50 
MA I N3H60 
MA IN3R70 
MAI M3HH0 

MA I M3 B 90 
MA I N 3900 
MA IN 39 10 
MA I M 39? 0 




MA I M 39 30 
*«4»*MA1N3V40 

f. nF TF RM I MF IF ST TFFMFSS IS TO RP PI.ACFO PN OMIT 19 MA I M 39 50 

#<|##***J>** **####**#*#«* jS*#**#***:^?^^^#****^*^#***** 4 I M 3960 

TF(MM.OT.I) on TP 700 MAJN3970 

on ASP 1=1, MO MAIN39A0 

TI=I.M( I ) -NSHTF T MAIM3990 

IF( 11 .OT.MF?R. AMO. II .I.F.MFRR) GO TO A AO MA|M4000 

ftsn comtjmiif majmaoio 

GO TO 7nn MAIM 4070 

ftftO WRITF(TQ) I. RO ,M0 , { I.M( 1 ) , I = 1 ,wn ),( SS( 1 )•! = ]* LPO) MAJN4030 


•Ml IM®=N1 IMO + 1 
700 r.nMT T Ml IF 

URI1FIIR ) K A | I . J) . 1=1 ,MFOR) , J=] .MRANO) 

I F ( m .F n.MRi.nr.K ) on to innn 

URI1FMF ) i( A( ! ,.l ) , !=K ,WF?R) ,Js] ,MRAN0) 

IF ( MH.Ffl.HR) MM = 0 

MM=MM+1 

lOOO MSHIFT=MSHIF T+MF7R 
ft F T MR M 

FMn 


MA I M4040 
MA JM40S0 
MA I M40AO 
MA 1M4070 
MA I N40H0 
MA 1 N4090 

main* inn 

MA I M4 1 10 

MAI NM7II 
MA IM41 30 
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SMHRnm IMP Mill. R AM ( A , R , C ,NK|.nr. K , MR AND , M , M VF f. , M F OR , MM , N 7 , 113 , 1^,01 MA I M 4 140 


r4 4444*44*44*4*4«*4*44*4***44*#4*4 4******4*4< :, 5 t **4’S : *:i:**>S‘* ! ! r 4# I 8 c >i'$*44 : ( £, ! ! < t: J :, « :! S‘tfMAIMAlS0 

f MML1 TI>I. Tf.ATinM PF THF P»nOHCT 1. IRANSpnSF * (K PR G ) * 7 MAJNM60 

r. m is wn, hf r.pMLiiMMs pf a tp rp rfaii frpm tapf mt mainaito 

f MM IS NO. PF ROWS PF B AMP C TP PF KFP 1 IN f.PPF FOR MAINAtRO 

r. Mill, r T PI. I CAT |PM A*B MA1N41CJ0 

f 4*444444 44*4*4***** *4*44 *4*4 **4**3 ****444444*44**44*44*«444 44444****4*41^ 1 NAPOO 
IMPLICIT RFAI.*ft (A-H,n-7I MAFN4710 

PTMFMSTPM A f MFPR.M ) , K( MM, MVFC ) *C (MM, NVFC ) , PI NVFC ,NVFC ) MAI NAP? 0 

M3=MM~NF0R MAIN4730 

R FM I MM IP MAI NAP AO 

RFwjwn HI MAIN A? ^(1 

(- 4 *** 444 *** 44 * 4444 * 4 * 4 * 4 4* 4* *4 4*444 4 44 * 44 ** 44 4*4 4444 * 4 *4**4 4 *4*444**4444MA I NAP 60 

C INITIAL ISP MATRT f.FS ft AMp C MA I NAP 70 

f. 44 *** 4 * 444 **** 4 * 4 ** 4 ****** 44444444 ** 4444444444*4444444444 4444 * 4 * *4*4444 MA I NAP HO 

nn sop I - 1 , m m mai nap mo 

no son .1=1, NVFC maina?00 

R{ T t J ) =0 ,P MA JNA310 

son c.( I ,.i >=o.n maina?po 

f ; 4 * * * * 4 * 4 * 4 * ** * * * 4 * * *4 * 4 * * * * 4 * 4 * fc 4 4 * 4 * 4 4 4 4 * a!* 4 * »Jc 4 * 4 * 4 4 4 $ 4 4 4 4 4 4 * 4 4 4 4 ft * 4 ft 4 ft M A 1 N AH 30 

C MATRIX Ml 1 1. T I M I ICATIPN A*R |M RI.nf.KS MAJNA340 

C * * 4 * * * ft * * * * * ft ft ft ft * ft ft ft * * i? ft * * ft ft * * ft ft ft * ft ft ft ft ft ft * ft ft ft sjc ft * ft ft * ft * ft ft 4 ft ft * ft $ ft ft 4 ft 4 $ $ ft ft ft ft M /\ | fyj A 3 5 0 

OP AO |.»1 .NBl.PCK MA1MA360 

R P A D ( M T ) A MA I MAH 70 

TFfL.n.n on in 70 MA1NA3R0 

M?=MM/NFPR MAINAi^O 

TP ( MP.OT. MPI.PCK ) m? = MK|. Pf.K MAINAAOO 

nn pn 1. 1 = 1 ,mp ma imaaio 

LP= (U-l ) *nfor maimaapo 

?0 PFAm in) I IR( I.P+1 ,.1) ,1 = 1 ,NFOB) ,J=1,NVPC ) MA 1 NAA30 

on m i op matmaaao 

70 M?=M7+1 MAINAA50 

f ftftftft ftft ftft ft*** ft* ft*ft*****ft#ft ft** ft ft* ft*ft*ft ftftftft ftftftft ft ftft ft ft ftftftftftftft ft ft ft ftft ft ftftftftftft ft ftftf,r|/\ J 

0 MOVF MATRTCFS R AMO f. IIP RY OMF R|. n CK I.FNGTH MA T MA A 70 

£4444444 ft 44 4 444 ft 4*4444444 ftftftftftftftftftftft* 44 ft ftftftftftftftft ft ftftftftftftftftftft ft 444ftftftftftftft44MA|N44H0 
PH RO 1 = 1, M3 MAINAAOO 

nn ro ,»=i ,mvfc mainasoo 

C( I , J ) =C ( I 4-MFOR • .1 ) MAI MAS in 

RO R(T fl l)=BII +MFOK, J ) MAIMASPO 

nn ni i=i t MFOR mainasho 

nn R1 .1 = 1 , NVFC MAINA5A0 

C( 1+M3 ,. 11=0.0 MMMASSO 

fll R( I+M3, J)=P.O MAINASOO 

I P( MP .OT ,NR| PC.K ) on Tn inn MAIMAS70 

R F A P (11?) •( RM+M?,.D , 1 = ] f NFOR) ,J=],NVFC) MAINASRP 

100 C.nMTIMIIF MAINAS90 

f * <r ^ it * * J.’! * # * % <r i\i * £ # * * * * fc £ <: * if. * * if * * fc * * * * if # * fc If ^ If # # if * * * * # * <r 3^ $ * >!< >{< # # * # * J)c $ $ $ * * * * M A I M A P ( ) 0 
C' MATRIX MUl.TfPI. ir.ATinN A*H MA 1 NAA 10 


nn \ PO 1.3 = 1 ,MVFC 
nn i po i.l = l • wFfm 
nn 1 AO | ? = 1 , MB AM|) 

I ] 7 = 1. 1 +I.P-) 

1 AO C ( 1. 1 ♦ L 3 ) =C ( 1.1 ,1-3 ) + AH.l *I.7)*B( I 17,1.3) 
nn i 7 o i . p = ? , m m a n n 
L 1 7 = 1. 1 +1.7-1 

IPO C fl. 1 7,1.3 )=C 1 1.1 7,1.3 )+A(l. 1 f l.P )*R(I 1 ,L^ ) 

f +t * tf 4 if * -r# * * * * If * * if f. t\i if * * * # * * * * * -t * * * : 

r wpi7f pmf hi nr . k pf r. pn iapf 1 ^ 

f 4 4 /t 4 $ ft & & $ #4 ft $ $ $ # 1^4 # $ £ $ $ £ $ & # $ $ g $ 4 £ $ $ 


MA I MAAHO 
MAI NA^AO 
MA 1 NAB 50 
MA I MA66P 
MA [ N Af» 70 

MA I MAARO 
MA I N A A *-M ) 
MA I MA700 

'44444444444444444444444 4MA 1 MA7 1 0 
MAIMA 7 P 0 

*4*4'44444444444444444--;:44MA I MA7 30 


82‘b 



WRT7F ( |R ) I ICC I *J I , 1=1 ,MFflRJ ,.1=1 ,WVFC 
4n comtinuf 


MAIN4740 
MA ] N47 50 


f ******** *** -fy ## ******* ******************** ******************* ***********M A I N4760 
c form matrix propmct h tramsrosf a*b main477o 

C PFS1H.1 IS MATRIX n MAJM47RO 

£******************************* ****************************************MA)N47R0 
RFWIWP II? MAIN4R00 

RFl-'I MO |o MA I N4R 1 C» 

OP S^O T=l,MWFf M A | M4H?n 

nn *?sn ,is] ,nvfc majnarso 

*P0 n(I*,H=n.O MAIN4R40 

nn ?nn i. = i f NRi.ncK MAIM 4 M 50 

RFAO(li^) »( MI ,.l) , 1 = 1 ,MFOP) , JsJ t NVFf. ) MAIN4R60 

RFAO( IQ) IIC I | ,.l I , 1=1 ,MFOH) ,.|=|,WWFfJ MAJN4R70 

f ************ *********** ************************************************ J M4RM0 
C MATRIX MULTIPLICATION A TRAMSPPSF * r. MAIN4H90 

f******************* ************************** *******#******************foA]f»J44f)() 


nn ?so li = 1 * nvfc 
nn ?*n i_? = 1»mfor 
nn ?sn l?=1*nvfc 

?*0 n ( L 1 • f. ? I = n ( 1. 1 • L ? ) + R II.? * L I ) *C M. ? • L 3 ) 

?nn comtinuf 

RFTIJPM 

FNn 


MA I M49 l () 
MAIM49?0 
MA JM4930 
MAI N4940 
MAJN4950 
MA I N49A0 
MA IN4970 


SI IRRPUT I WF FIC.IAf. ( S ,f, ,F V ,FVFC ,MVFC ) MA1N49R0 

IMPLICIT RFAL*P I A-M,n -7 ) MATN4990 

f, ****************************************************************** *****MA JN 50 ()0 
C C PM PI IT F F TPFMVAI.IIFS AMD. NOR M A 1. 1 SF n FJCFN VFCTORS MAINS010 


f, ******************************************* *4«4‘*****<«*>r#************#***MATMSn?0 


n I MFWS I ON SINVFC,NVFC) « G I NVFC • NVFC ) ,FV(MVFC ) * F VFC ( NVFC * NVFC ) 
IF( MVFC.PT.l ) C,n TP 3 00 
FVI 1 )=-SI 1 • I ) /CM • I ) 

C)=-1 .0/M 1 •! ) 

TFI CM , 1) .GT.o) C1=-C1 

fvfci 1 ,1 )=psopt(ci ) 

nn in aoo 


MAI NS030 
MA JNS040 
MAI MS050 
MA JNSOAO 
MA I MS 070 
MAT N50R0 
MAINS090 


roo nFT=n( i , l )*r,i ? ,? i — gc ?. t )*#? 

m = sn 1 1 )*nc?,? 1+S( ?,? )*rc I . n-?.n*su .? )*nn .? ) 

n?=s( I .] )*S( ?*?)-si i,?)**? 

n=nsnRT mi * gi - 4.n* of i*n ? ) 

FV( l ) = (-r,l-P)/( ?.0*I1F T) 

Fvi?)s(-m+n)/i?.o#nFT ) 

nn ao i=i t ? 

R A T=-( SI1«l) + FVIII*f.||,II)/ISH,?) + FVIIl*i;i|,?|) 
CI=r,( \ ,1 ) + ? ,n*GI 1 ,?)*RAT+GI ?,?)*RAI**? 


MA IMSl on 
MA I N S 1 1 O 
MA IN«>l?n 
MAI M'S 1 30 
MA INS l 40 
MA] NS ) 50 
MAIM5] AO 
MAIN5170 
MA I N 5 1 MO 


TFIC1.LT.0,) C1=-C1 
FVFCIMIs nSPRTI 1,0/Cl) 
AO FVFCI ? , I ) =RA1 *FVFC 1 1 , 1 ) 


MA I MS [90 
MA I NS? 00 
MAI NS? in 


400 CONTI NUF 
RF7UR M 


MA 1 NS?? 0 
MAI NS?30 


FNn 


MA I NS? 40 



SlIRRnmiNF SPTF I SK • SKI » F * C • FVFf. * MF fJM * N VFC • NR| PCK « MM « NN , M HAM) * I 3* MA I MS? 50 
1 lQ f l] 0 l MA I MS? SO 


(;**** * * * * * * ******************************************************* ******M£JM^?f{) 

r. SF TUP STRIIC1URF STIFFMFSS MATRIX AMO F=f.*7.«0 FOR SOLVING MATNS?RO 

r [MpRnv/Fn r.rnRniMATF vfciprs using surroijiinf usni. maims?oo 

0******* *********************************************************** *****[»! j\JN S3 00 
IMPi.irn mfai.*r (A-n,n-7) maims?io 

DJMFMS ION SK( NFPR *MM ) ,SK H MFOR , NN ) ,F ( M FOR* N V F C ) , C I NVFC. ) t MA IN S3? ft 

] FVFf ( MVFO * MVFf ) M A I MS 330 

RFVIIMM |3 MA1MS340 

RFW1MR T<> MAINS3S0 

RFWJMO HO MAI MSS SO 

nn son N=i,Nni.nr.K majns37o 

RFAntlln) SK MA1NS3»0 

f** ********************************************************************* f4/y|Nc;3qn 

C CALCIILATF THF PRrinur.T <;*7*FVFC MAIMS400 

C ************************* ******** ************************** «************p}£ ] NS41 O 


RFAOC |0) F 

OP ion 1=1, MFOR 

nn iso .i = i,nvfc 

Clj )«o.o 

nn i sn k = i , m \/ f r. 

ISO f. U )=r I.IJ+FI I •K)*FVFCfK«J) 
nn ?nn ,j = i ,nvfc 
? 0 0 F ( T v J ) =c I .') 
ion r.nwT I Ml IF 
son mp l TF ( I ? ) ski 

RFTURN 

Fwn 


MA 1 N S 4 ? 0 
MAINS 430 
MA I M S440 
MAI MS450 
MA TN54S0 
MA I MS 470 
MA TNS4R0 
MA 1 M5400 

MA TNSSOO 
MAI NSSIO 
MA JNSS70 
MMNSS30 


SIlHRPiniMF SMnnr ( 7*YfFVFC iMFOR* NVFf. « NH|_ fif.K , NMpnF «I3*I2 ) 

f** ********************************************** ***************** 

r r. ai.ciii.mf mwifsuapfs y=7*fwfc 

r. ******** ************ * * * * * * * * ****** * ******* * * * * * * Jjt * * * * * * * * ****** * * 

IMPi.irn RF Al. *P IA-M,n-7) 

n l M F M S I HM 7 ( NFOtt f MVFf. ) , Y ( NFORyMMOOF ) *FVFC( MVFC*NVFC) 

RFMIMO I R 
R FM i Nn T? 
nn inn n=i,nrlpck 

R F AO M? > 7 

nn ?on i=i,mfor 
nn ?oo .i = i,NMnnF 
r.i =n. 

nn ?sn k = 1 ,mvfc 
?S 0 C 1 = C ] + 7 ( I • K ) * F V F f. ( K , J ) 

?nn y( T v .i ) =c 1 
inn mr n f ( 1 3 ) y 
RFTIIRM 
FNP 


MAI MSS40 
****** M ft | MSS 50 
MA I NSSSO 
******MA I NSS70 
MAI NSSRft 
MA I NSSOO 
mainssoo 

MA IMSMO 
MAI MSA?0 
MA I MS430 
MA I NS44II 
MA] NSS50 
MA I MSf’SO 
Pi A I M S S 7 O 
MA I NSSHO 
MA I NSSOO 
MA JMS700 
MA I NS 7 1 11 
MA IMS7?0 


0£*t) 


SIIRRHIITI NF IlFft V( A 0 |. 0 , 0,0 « H « I.M ] , WRIIf.K * MF OB , MB I.OCK , NFO »NIJMDV ,NM 0 l)F , MA 1 NS 730 
1 t I. , Ml IMF I. ,I 1 , 1 ?.I 3 ,| 1 ?,|R, 1 W) MAINS 740 

#£**£*;>* *‘ ££##£** ^fc^^#***#^**#***#**^^**#*#*;:* *£*£**;***£# * *r * M A I N S 7 S 0 

r r At. CHI. A TF Plir.KI.TNO OFR I VA T I \/F S MIMS 740 

f-!«5: *#>>** j!:******#*#**#** ft#**##*# <c#*##** j{:** *#>}:#*s)c * | NS7 7() 


IMPLICIT RFAI.*P ( A-H ,n -7 ) 

«fai.# 4 o .APi.n,n,Fkr. 

niMFNSIflN H IMF OP ,NMOOF ) ,S 1 I ?4 • ?4 ) , S? I ?4 , ?4 ) 
niMFMSTnM 0 (NF 0 ,I.PU , AHUM NIIMOV ) ,0 | NIIMIIV, I.Pl) 
COMMON /FM/I.M(? 4 ),S|?A,? 4 ,?I , P I ? 4 ,4 , ? ) ,C ( 4 , ?U ) 
FOIITVAI.FMCF ( SI .S> . 1 S?,S< S 77 D 

PFAnun aolii 
P F AO (111 AOLO 
NT = IMftlir.K-] I/1.P1 +1 
1. 1 =1. R I 

I. H= 0 

RFWJMn \? 

RFWIND I? 

no in ii=i ,nt 

C MOWF Plir.KLlNi; MfWFSHAPFS INTO CORF FOR I.R 1 WOOFS 


MAIMS 7 R 0 
MA I MR 7 t 90 
MA I M 5 POO 
MA IN 5 H 10 

FM 1 | 1 3 ? 2 ) MA J N S 8 ? 0 

MA 1 MSH 30 
MA I N 5 H 40 

MAIN5«5n 

MA I NR RAO 
MA I MSP 70 
MAINSPHO 
MA I NS 890 
MA J NS 900 
MA I NS 9 ] O 

MA 1 NS 9 HO 


f *#****«* *s!f* ***##»!«# **#**#^#* * 4 * *«##«*********«*#*###*«<: ****>!: A I MS 940 
CALL MOVFO | n,l),WFnR,MBI.OCK .NFO.NMPOF t I.R 1 , 1 .H,L 1 ♦ 13 ) MAIMS 950 

no SO J =1 ,|.P 1 MAIN 5960 

no sn 1 = 1 , NIIMOV MA I N 59 70 

SO nn,.l|sO t n MAIMS 9 H 0 

RFWJMn 11 ? MAIN 5990 

no inn nm=i.wumfi_ maim^roo 

£****$ $<^*#:^ #$$******#*#«*$***#*$$ *$*$#:*««**«*$$**#****$$ A JN 60 10 

c cai.ciji.mf stiffmfss matrix nFR 1 w/st r vf s mainao?o 

R F AD m?) LRn,NII,NV,NO, IOVAR , IFX.FRC, n.M{ I ) , 1 = 1 ,N 0 ) , { MSI I , J*K ) , MMN 4040 

1 1=1 ,MOJ ,J = 1 ,Nn» ,K = 1 ,MII) ,( •( P H ,J,K), 1 = 1 , NP) ,J= 1 , 4 ) ,K= 1 *NVJ MA 1 N 4050 

I F { jn\//\R. FO.n ) OP TP 100 KA 1 NA 060 

IF(MII.FO.l) GO TO SOI MA 1 N 4070 

FR= JFX* ( FRC^AOLOI I OV AR > ) ** < I F X - 1 ) MAIN 6080 

00 SO? T= 1 ,N 0 MA J M 4090 

no sn? j= i , no majnmoo 

SI I I ,.I) = M« I ,.II+S?( I ,.I)*FR MAJNM 10 

so? SI !J,T )=si (!,J) MA I MA 1 ? 0 

sni no too j=t,Mn ma inmho 

no 300 ,l=J, MO MA I N A 1 40 

SI ( I ,.!) = S 1 ( I ,.IJ*FRC MAI AIM SO 

*00 SlU.I)=Sin.xD MAlNMftO 

^##«^#******^^****#i{t«*5!!»!s**** S Jt4:«***^^^ s ) ! «**********J{:4«*!Se*^«iC:«*4is} ! !«;*«*:*#*#*acMAlN417() 


C CAI_C.H1.ATF THF RUCKLING OFRIVATIVFS 

C # $£ * $ £ $ £*££#$*** 4: *#* if if #*** $ * if Ht £*$:>«$« £ if if 4 *<=* $ * 

T F f n.FO.MT) U=NPIICK-I 1 1 — 1 l*l.Pt 

no qso 1 = 1 ,i. i 
no osn ,i=j, nii 
9Sn c( j ,.i )=o,n 

no mo K= 1 , NIT 
MM=|_M( k ) 

JFfMM # jF,0) no TO Ain 
on Ann i=i ,i.i 

no aoo j=i,Nn 

400 Cl T ,.! )=f. ( I ,»D+n( MM , I J *S1 ( K ,.| ) 

410 r.OMTIMlIF 

no 700 1=1, MM 
MMsI.MC 1 ) 


MAI MAI HO 

M A I N 4?00 
MA |N 4 ? 10 
MA I N 4 ??() 
MA I MA ? 30 
MA I N 4?40 
MA 1 N 4 ? SO 
MA f NA? 4 f) 
MA J NA? 70 
MA J N 4 ? HO 
MA J M 4? 90 
MAIM 43 O 0 
MA 1 N 4310 
MAJ N 4 3?0 


Q. 31 



I 

i 




ir-( MM.LF .0) (;p TP 7nn 
nn 710 k*i.L1 

71 n 0( ir>VAR,K )=0< invAR,KI+C( K,M*D(MM.K) 
700 rOMlJMMF 
loo cnwT T mi if 

nn afto . 1=1 ,u 

ft *>0 WRTTFM?) 1 ni K «.l) *k = i t MUMDV ) 
in rnwiiNMF 
RFTIIRM 
FMO 


majwm *o 

MMMA.3A0 
MA 1 Nfi3 50 
MAINA 36 I) 
MA I MA 370 
MAINA^HO 
MA]NM90 
MAJ NA400 
MA JNA 4 l(» 
MA I NA 470 



Z£’b 



SIIRRHUT I MF HFSinM{ AO|_P , A S TR , LOAD , IIWT , S IP ♦ M1IMDV . I.L ♦ III) MA JNAMO 

f****** ***************************************************************** MA|MA440 

c FVAIJIATF THF r.llKRFHT nFSIRM A Nil PFRFORM RFDFS! GN npFR A T I FIN MAINA4SO 

C ************* **** ******** ********** ************************************MA I NA460 
R F A I. * R FW MA1NA470 

fl T MFNS JPM Ani.n(M(IMI)V | ♦ A STR (NIIMOV) f (.PAH (Ml (MOV I ,UWT (Ml IMI1 V ) , SIR (4,| I ) MA I NA4H0 
COMMON /CRN TR / ir. YCI. • *»(“. YC1. , I sr.Al.F ,NSCALF,KSCA|.F .KPNVG, I OF SN , I W T M I N , MAINA490 
lV'TM|M,FP^TL*nFLlAl »nFI. TAP, K PI INCH, I. RUCK, NVFC.NMnnF, LIU , ALP A, I N OFT MAI N6 SOU 


.113 


MA 1 NAS l (I 
MAI MAS? f) 
MA TNAS.-iO 
MA I NAS40 
MA I MAS SO 
MAJNASAO 
MA JNAS70 
MAIMASRO 
MA I MAS90 
MAIMAAOO 
MA I MAAIO 
MA I MAA?() 
MA IMAA30 
MA I MA A40 
MA INAASO 
MA I MAAAO 
MA 1 MAA70 
MAIMAARO 
MA I NA AMO 
MAJMA700 

C ************************************************************* **********MA I WA7 10 

C COM PM IF MAX. ANn M ] M # S 1 R F S S RATIOS AMO PRINT THFM MAINA7?0 

C*#*** ************************************************* *****************MAJNA7. 30 
PO AP |sl,N|IPflV MATMA7A0 

p = ASTR( T )/ AOI.IK 1 ) MAINA750 

lFfR.l_F.SMAX) CP TO AP MAJNA7A0 

RMAX=R MAINA770 

J MA X= T MAJMA7R0 

I.MAX«I.PAn( I ) MA I MA790 

AP JFfR.GF.SMJM) GO Tn AP MA I NARIIO 

SM JM = R MA I NAP 1 0 

I MJ Ms I MAI MAP? O 

LMIMsI.OAfM T) MA I MAH 30 

AR C OM 1 T Ml I F MA INAR40 

WR 1 TF( 1 W , 1 000 ) IflF SN , SMAX *I.MAX , I MAX , S M I N, I.M | N , l M I N MA I MAR SO 

T FI LRIIC.K. FO.0 ) 00 TP HO MAIMARAO 

C************* ********************************************************** M A I N AH 70 
f PRINT RUCKLING I.PAfl PATIOS MAJMARHO 


? ,KPR TMT * CONST * CMFFF T , SM AX , UMAX ,MRI If.K . SF, I S ,KPOF , NRPIJMO 
COMMON/. MINK /FV (A ) ,ORAT (4 ) , F V P ( A ) , JI|N ( ?S? ) 

common /iim iTs/iRfi’^* !Piii»i?,n,]R.i9,no,ni.ii? 

RFNlNn T) 

R F AO (U) STR 
RFAP (J]) APl.n 
RFAO (Ml APl.P 
R F A 0 (III A STR .LOAD 
PFAO ( III ) I »W T 
KpMVCa 1 
SMAX=n . 

SMI M= 1 . OF ?P 
PMAX=P. 

MnnrKsO 
IS=0 
KOnF=n 
WT=n . 

RCOMST=?,n 

no ??) i =i 9 niimov 
??1 WT=WT + APi.n( I )*IIWT( M 


C******** ******************** 
WRITFI JV',?OP?) 

00 7a 1=] ,NMPOF 

nR A T ( T )=r.OFFFT /FV( 1 I 


$****** ************************ *#**s******MAlNAR90 

MAI MAyOO 
MA IMA910 
MA 1 N 69? 0 


7Q WRITFI |W f ?001 ) np ATI I ) ,1. RUCK MAIMA9T0 

f ***************************** ft ******************************************* A I MAU40 

C CAI.CUI.ATF NP, OF POSS1RI.F ACIlVF BUCKLING CONSTRAINTS MA ] NA9S0 

C ****** ****** *********************************************************** MA J NA9A0 
00 70 I = l,NMn0F MA J N A9 70 

ARDsDRATIT) MAJMA9R0 

T PC ARO.LF .0, ) (;n TO 7 1 MAIMA990 

IF( KSC7I.F.0T ,n ) ARIis I AMD ) ** ( 1 .n/KSC AI.F ) MAJN70nn 

P = Ann/SMAX MAIN 7(1 10 

TFIR.I 1 .rnwsi ) r.n tp 71 maim7o?o 


Q. 33 



Mmir.KsNPiir.K4-i 

MA IN 70 <0 


T f f aro.kt .pmax ) omaxsaho 

MAJ N70AO 


FVP( MBIir.K ) =FV( I ) 

MA IN7050 


no in *?o 

MAI M70f»0 

71 

HR AT ( I )=n. 

MA IN 70 70 

7n 

r.pMi jni if 

MA I M 7 OHO 

no 

SF=SMAX 

MA lN7fmn 


T F f SF . 1. 1 . PM A X 1 SFsHMAX 

MAT M7 100 


IF( SF.i.T.nFi tm .np.^F.GT.OFLiA? ) r.n in ?os 

MA I M 7 1 10 


lF(SM 1 M.n.nFI.TAl.nR % !sM!N.C,T.nr-UA?l GP TP HR 

MAIM 71^0 


MR ITF( T'-' tlOAA ) 

M A 1 N 7 1 30 


KPMVG=A 

MA I M T 1 40 


hr TTFC I w , l non ) vi r 

MA T M71 50 


GP TO F5 

MAI M7 ] hn 

a* 

WR?TF( UMPPR) 

MA 1 M71 70 


MR fl F ( J W , I OOP | HI 

MA] M7 1 RO 


mr TTF( |w 9 ?nns ) 

MA 1M71 R() 


KPMVP=? 

MAI N7700 


T F ( nMAX.GT.SMAX ) KPMVG=P 

MA IM7 ? 10 


I SCAI. F = p 

M A 1 N 7 ? ? 0 


TCYCi. = ir.Yr.i. + i 

MATN7? 30 


1 F f ICYCI.. l.F.Nf Yfl. ) pn 7 n pa 

MAIM7P40 


K.PMVGsA 

MA 1M7? 50 


WPITFMW, 100*5 ) MCYCI. 

MATN7760 


pn tp H 6 

MA IN 7? 70 

*05 

TFfKSrALF.r.F.n.ANn.sF.u.Rr.PMSl I GP in mi 

MAIN7?H0 


HR 1 T F( T V * 1 no? ) 

MA 1 M7? 40 


KPPFs 1 

MAJM7300 


gp tp ra 

MA 1 M 7 -J 1 0 

IP 1 

TF( K SCALP. FM.O ) <;n TP HO? 

MAI M7??0 


is = i 

MA 1 n 7 ? -TO 


no in? t = i,mhmp\/ 

MA f N7?A0 


Ant.nt j isAni.ni ? >*sf 

MA 1 N 7 3 50 


WR MF t 7W« ?004 ) 

MA]M7?f'0 


r. ALL MFSGt SMAX ,r>MAX .UMAX , 1 'aI ) 

MA 1 N7370 


MR { T F { IWtPPPA) 

MAT M7?R0 


r.Al.L DPFUNT 1 AP|.I) .NIIMOV , I W ) 

MA 1 N 7 3 4 ( ) 


W7=MT#SF 

MAI M7400 


MR 1 TF( f W f 1 POP ) WT 

MA I M 7A 1 0 


pn tp pa 

MAI M7A^0 

ro^ 

WR TTFC IW , mo? 1 

MA TM7430 


WR TTF f ) W, pnot, ) 

M A I N 7 A 4 0 


SF=SMAX 

MA | M7A50 


t <;r ai.f- t scai.f + t 

MA I M 7 A AO 


TF( 1 SCALP .GT .mscai.F ) c;p tp ?n? 

MA1M7A70 


T F ( MRiir.K .NF .0 ) RFTIIRW 

MA | N7 AHO 


nn | = | v mi immv 

MA I N7A40 


API.DC T JaAPl.ni | ) *SF 

MAIM7500 


P P 1-1 I Mp f ] 

MA JM7 5UI 


R F A D ( M ) STP 

MAI M75?0 


RF An (Ml A 5 TP 

M A I N 75 30 


URllFf n ) Am 0 

MA | M7SM) 


call mfst.i s m ax *smax , smax , t.j i 

MA 1 M7550 


P F T 1 IR M 

MA 1 M 7 50 0 

?OR 

KRMVA=A 

MA J M7 5 70 


WP TTF MVM noil M.Sf AI.F 

MA } N75HO 


r,n Tn 

MA 1 M 7 54(1 


TFCKnnF.Fn.il on m ^7 

MATM7AOO 


TF( wr ,1 7 .MJM fM 1 c;n in so? 

MA |M7A 1 0 


u = { wt - M 7 h 1 M ) t u 7 n 1 1 1 

MA I M 7 {'S 1 > 





1 F( R *I.T ,FPS 1 1. ) GO TP SOS 
KPMVRbA 

MR IT Ft TW,1 D0C>) fUTMfM 
go in f s 

SO? WTMtNaUT 


MA JN7ft.-U) 
MAIN76AO 
MA I M 76 *5(1 
MAI N76M) 
MA I M 7 A 7 0 


TWTMIN= IflFSM 

SOR JF( MBIICK .WF ,0) PFTUPM 
RFVIMn n 
reap til) s rp 

RFAP (11) APl.n 
MR 1 T F ( in AS IP 
R F 7 UP M 

RS IF! K PI INCH, F 0.0) RFT1IKN 
BFUJMn n 
R F AD (11) SIP 
RFAP MU AS7P 
nn ? sn j =i .miimdu 

psn wriifiip, mini 1 • api P( 1 1 « a <; tr < i ) 

RFTIJRM 

1 POP FORMAT (// PPM *********❖**«£$**$«****$$=!:*$*:{:**/ 
l PRO F V A 1. 1 1 ATI ON PF PF SIGN Nl IMRFR • I A / 

? R ? H Jjr*#*#***##***^*##^*^#^##*#*****/// 

3S0N STRESS RATIO I.PAP Cf’MP l)FS VAK1AHLF/* 

4 4H MA)f | FJfl t 4,H0,M?, / 

5 4H MIN,FlH.4,I10,m / ) 

1001 FORMAT ( A9H TFRMIMAI. PFSIGM NIIMPFR PF SCALING PPFRATIPNS = 

inn? FORMAT! / /?V( PFSIGM IS NOT CRITICAL//) 

1 PP ^ FORMAT ( //?3H PFSIGM IS C-PIUCH //) 

100** FORMAT! //?RH PFSIGM IS ACCFP T ARI.F //) 

100S FORMAT ! //ARM TFKMINAL OFSIGN MIIMUFR PF CRITICAL PF SIGNS 

100H FORMAT! //1QH STRUCTURAL UF 1 GH T = ,F n . A ) 

100Q FORMAT f AOH TFRMJMAI. nFSIGN L I GH TF ST CRITICAL OFSIGN IS 

1 MIIMRFP. • 1 A / / ) 

1010 FORMAT f IS*?F1P,S ) 
pom FORMAT! 7X*F n,4 f ? 1 1 0) 

POO? FORMAT (4AH MAX RUCK PAT IPS I.OAn CONP / 

?n Hi FORMAT! //IX, RRHIIMIFPRM SCALING OPFRATIPW FOLLOWS) 

POPS FORMAT ( //1X,?FHPFPFS1 GW 0PFRAT1PN FOLLOWS ) 

PPOft FORMAT! //IX, ARHPFS1GM V AR 1 A RL F S PF SCAI.FI) (CRITICAL) DESIGN 
FNn 


MA I M7 ARO 
MA I M7A90 
MA I N7700 
MA I M77 1 0 

MAI N77PO 
MAIN77W 
MA l N7740 
MA 1 N77SP 
MAI N7 760 
MA I N77 70 
MA I N 7780 
MA 1 M7790 
MA 1 N7R00 
MA 1N7«I0 
MA 1N7RP0 
MA IM7HR0 
MAI N7HA0 
MA T N7«S0 
MAIN7RM) 
MA IN7R70 
» I A / / ) MAIN7RH0 
M A 1 At 7 R 9 0 
MAI M7 900 
MA 1 M7910 
=, I S / / ) MA I M79P0 
MA ] N79.-J0 
OFSIGN MAIM79A0 
MA I At 79 SO 
MA I N7960 
MA 1 W7970 
) MA1M79HO 

MA 1N7990 
MA I NR 0(H) 
AR F ) MA IMflOK) 
M A I MR OP 0 


Q. 35 



SURROIITIMF ROFSJM ( APl.n.ORl , I n 1 , AST« ♦ahuc.hw r .OPT IN . S TK .numiw , lu. matnroho 
1 l.l ,MRUCK ) MAI NR 040 

C ***** ****************************************************** ** **********m A \ Nft 0 50 

r Rltr.KI. TNG CONSTRAINT RF DF S 1 GN HR SCALING MA I NR060 

C********************** ********************************************** ***M A I M ft FI 70 
RFA!.*P F V MAlMHOPO 

niMFMSfPN inn MIIMIJW ) , Ani_m NIlMPV | , ASTR (NIIMOV) * ARIIC I NUMOV) f MAI NR090 

1 OR I (Ml IMHV . MR( If. K ) . M WT ( Nl JMOV ) , STM4.LL ) ♦ np T f N f Ml JMMV ) MAI MM 100 

COMMON /C PM JR / ICYCI. •NrYCI. » I SC ALF , NSC ALF ,KSC ALF . KPNVG ♦ I I1FSN , ] W TM I N « MA I NH 1 IP 
1W1MIN.FPSIL.PFI.TA1 . PFI.TAPtK PUNCH , LHIIfK t r ^VFC • NMPPF «LH1 t ALMA, I NO FT MAI NH 120 
? ,KPR IMT.r.PMST tCPFFFT ♦ SMAX.PMAX .NHIICKK* SF. I S * KPOF , NRPI IN|> MA I MR l 30 

COMMON / JUNK /FV( 4 ) .IIRAT I 4 ) » FVP (4 ) ,0 (4.4 ) ,R I 4 ) f AMO A ( 4 ) , S ( 4 ) , JUN ( 3? 4 ) MAI MR 1 40 
COMMON /I IN I TS / I K * Jtf t IP « I 1 ♦ 1 ?, I 3 f I ft t I •> * f 1 o. I 1 1 ♦ I 1? *113 MA I NH l 50 

0 A 1 A TAG) , TAG? /5HAC T . 4HPA SS/ MA I Nft I AO 

OFl_5 = 5 ,P*( 1 .n-nn.TAl ) MA I MM 1 70 


r** 


nFF.TI 1 = 1 .0-0FI.5 
nn.T?? = i .o+ofi.s 

RAC KSPAC.F Til 
PFAW IP) IIMT 
RFMJMn 11 
RFAn( 1 1 ) STP 
r F a n ( i } ) APi.n 
RFAD (III AOl.n 
PF W 1 MO I ? 
no f, I T = 1 , Mfti ir.K 

RFAOF IP ) f PR I ( J . I ),.!=! , NIIMOV ) 
IFIKPMVG.FP.I) GP TP SOI 
*******************************;« 


MAI Nft 1 HO 
MA I M ft 1 90 
MAIMR?00 
MA INH? 10 
MA I Nft?? 0 
MA I M ft? 30 
MA I NR? 40 
MA INM? 50 
MAI NM?60 
MA | Nft? 70 
MA 1 M ft ? ft 0 
MA INH? 90 

*********************************** MAINP 300 


C BUCKLING CONSTRAINT RFOFSIGW MAJNHJlO 

f *********************************************************************** (v\ A J N R 3? 0 
R F An( T 1 ) ASTR M A I N ft 3 3 0 

RFWINn II MAI MR 340 

IF(lS.NF.l) GO TP 101 MA1MH350 

C ****************************************** *****************************MA I Nft 3ftn 

C enNVFPT BUCKLING PATIOS AMO PFRIVATIVFS IP 1 HE SCALFO OFSIGN MA1MH370 

(***** ********************* *********************##********#**************MA I MH3R0 
no 99 1 = 1 .MIIMnV M A 1 N ft 3 9 O 

99 AOl.ni DsAPLOl I )*SF- MAIMH400 

SFF = SF**KSCAI_F MA 1NH410 

SFFF=SF«* (KSCAl.F-1 ) MA T NP 4?0 

no in? i = i ,nruck m a i m ft 4 3 o 

F VP ( I ) = FV P ( I ) * SFF MAI MR 440 

OP 10? J = l,NHMliv MAIMB450 

10? OR I (,1.1 ) =0R I (J * I )#SFFF MAINM4A0 

c ************* ********************************* *********** ************ *#tfA I Nft4 70 

C CLASSIFY OFSIGN VARTARLFS FITHFR AS AC.TTVF PR PASSIVF MAIMH4«0 

C OFSIGN VARJ A III. F S WITH THFIK OFPfVATIVFS FOR ALL PP f FNTI ALLY AC T I VEMA I MR490 

C RUCKLING MpnFS AS PPSI11VF AMF PASSfUF V A R I A R L F S MAINR500 

C ****************************************************************** *****MATNH51() 


101 


51 


4 Q 
50 


00 50 1=1 ,MMM0V 

no 5i ,1=1 .mriick 

TFI ORJ I I ,J) .GT.n, 
r.OWT I Ml IF 
101 ( 1 )=0 
GO TO 50 

1 oi m = i 
r.OMT 1 Ml IF 


MA I Nft 5? O 
MA INM530 

) GO TO 49 MA I MR 5 4 0 

MA 1 NM55P 
MA 1 Nft 5 AO 
MA1NM570 
M A I M ft 5 ft O 
MA I N ft 5 9 ( ) 

r ****************** ******* ********#********#****************************ma i n ft ft o o 

C ITFRATIOM TP F ] Mil Mill AC r I VF /PASS I WF CLASSIFICATION I'F OFSIGN MAfNHMO 

r WAP 1 ARIFS MA 1 Nft f»? II 
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£******************************** **********s*Si****#*************#********MA1NRA30 
700 M Af. = 1 MAINHA40 

£***************** ft*** ********** ****************************************MA 1 NR A 5>0 

C C.HFCK IF Al.l. OF SIGN VARIARI.FS AR F PASSIVF MA I NH AAO 

C ***************************************************************** ******Mft I-NHA70 

nn s? i = i,wiiMnv mainraho 

IF( ini ( i ) .Fn.n gp m S 99 ma i nraqo 

S? CPMUMIIF MA I MR 700 

f * ********************************************************************** M A I N R 7 1 0 

f A 1.1. OFSIGM VAR I AHI.F S ARF PASSIVF. MAKF THFM ACTIVF FOR MFXl CYC I F MA I MR 7? 0 

C ************************************************* **********************ha|nh730 


ICPMsO MAINM7A0 

CO TP AO? MAINR750 

f ******************************************************************** ***^,fl I MR 760 

C CAI.Clll.ArF RIRH1 HANI1 SIMPS OF S I Mill. T ANFPIJS FOUATIPNS FOR LAMROAS MAJNH770 

f_ ******** ************* ****************** ******** ***************** *******MAJNR7R0 


son nn ro 1 = 1 *a 

p ( I )=n, 

AMOA { T ) = 0. 

nn ro ,t = i ,4 

no nt t ,, i )=o. 

nn ion i = i,n«iick 

np=n.n 

OA=n.n 

nn un .i = i 'Miimiw 
TFI ini ( ,») ,F0. n r.n TP 1 ?n 
np=OP+ORH .).!>*( astri .1 1 - Ani_n( j > ) 
on m nn 

l pn nA=nA+OK M ,i*i j*AfM.n( j ) 

110 C.PM7 I AM IF 

100 R ( n = l 1-AI.PA l*OA + CnFFF T-FVPI 1 J-I1P 


MA IMR790 
MAI NRROO 
MA INRR10 
MAI NHfl?0 
MA I NRH 30 
MAI NRR40 
MA I NHR50 
MA I NRH AO 

MA INHH70 
MAIMRRRO 

MAINRH90 
MAIMH900 
MA I NR9 m 
MA 1 MR9? O 

MA INR9.30 


C********** *************** ****************ss** ********************** *****MA I NR9^0 

C nFVFI.np CPFFFICIFMI MATRIX FOR I.AMPDAS MAIMR9&0 

f *********************************************************************** MAINR 960 


nn ?SO I =1 f NR1ICK 

nn ?sn js|,mriic.k 
nn ?ao K = i,NiiMnv 
i f ( mi ik) . fo. n mi 

?A0 r.flMT I Ml IF 

n i t *.i ) = nn , j )*( 1-rti.pA ) 

?sn m . 1, 1 )=n( i , j ) 

f * ******************** ******** 4 
C I T PR A T I HN TP FINn ACT J VF 


) = H ( 1 * ,1 ) + 0K I ( K , I ) *OR I f K , J )*APin(K ) /UW1 (K ) 


MA IMR970 
MAIMH9R0 
MA I NH9V0 
MA I M9000 
MA I M90 1 0 
MA I WOO? f) 
MA | N90 30 

> **************************************** MAI M9040 
HMCKLIMr; CPA'S IRAINTSI IF +VF LAMFOA ' S ) MA 1 NOOSO 


******************* 


f ***************************************** 

CA1.L n IS PI P ,n, AMOA fMRIlCK . I COM ) 

1 FI ICnN.NF.O) OP TP AO 1 
AO? OR T TFI JW ? 1 OHA) 1 f.PN 
RFMIMn n 
RF A0( II) STR 
PFAniM) API.O 
HR IT F( 11) AS TP 
RF7IIRM 

C ********************************************** **************** 
C CAI CNI ATF RFOFSIOW FROM Mlir.KI.IMf, CONSTRAINTS 


**#******MAI W90A0 
MA IN9D70 
MA I M90H0 
MA J N9090 
MAT M9 100 
MA I N9 1 10 
MAT M9 1 ?0 
MA | M9l 30 
MA T MW T40 
p********MA 1 M9 1 bO 
MA I MW 1 Ml 


c ***************************** *****^ 
aoi nn son T = i t wiiMnv 


*********************************** ma 1 N9l 70 

MA I N9 1 HO 


r. = n. 

nn Sin Jr 1 , MH| If K 
sin C = C + A MO A | .1 ) * O W T | 1,1) 
OPT [Ml 1 )=C/IIWT 1 1 ) 


MA I NO 1 WO 
MA [ M9?l)0 
M A J mm? 1 o 
MA | MW?? { I 





r. = ( Ai_PA + ( \ .n-ALPA )*nPT |M( 1 ) )*Ani.n( I ) 
JFIC.GF.ASTRI I ) J GO 10 s?n 
I F { f n i ( t ) .F n.i j maoo 


im 1 1 )=n 
ARUC( f ) = AS TRi 1 ) 
go in ppn 
5?n ariici I ) = r 

IP! mill) .Fd.o > M A f. - 

?nu | ) = i 

son r.nMiiMiiF 

f ' & 4- * If * # sjs >;« * * if jfi *!e * *■. fc * lit if # * * -if 

C f.MFf.K FOR ANY f.HANKF 

r VAR | Am. F s 

f if $ # * * * # V 2 if it f * # S « # S * >? if *r «-■ v tr- 

I f c mat. .Fn.n ) go Tr 

f * <r * * $ * t- * $ * * H- * # * * * * * # # * >5 


MA I N9? SO 
main«?40 
MA 1 Am? 30 
M A I M 9 ? 6 O 
MA | MR? 70 
MAI M9?«0 
MA JM97 90 
MAI M9300 
MA I M9 "i l () 
MA|NV??0 

IN AC.l IVF/PASMVF CLASSIFICATION OF (IF SIGN MAIM9340 

MA 1 1SIV350 

^ tt * C: >* * M A ] N 9 3 6 0 

700 MA 1M9T70 

* * *• # # * * * * * * * * Jjr * * * $ * * * * * * t * * * * * * * £ * * # * $ * * * * 4 * * # * M A 1 N 9 ? R O 


C PRINT npTIMAl.ITY INnFX 

(* * * * * * * <« # * * * # # * « * Jjr * * * <; # »Jf * j*t * * # * * * * * * 

WR ttf{ iw,?nn?) 

r.n 750 ] = I , Ml |Mf1V 

tag= r agi 

TF( mi I n ,FA.A) lAn= 1 AG? 

750 wr ITFI !w,?nni ) J , T AG *PP 1 1 M( 1 I 
writf ( ! w, 1PPA ) icon 
T f c sf . r,r ,nFi. ta? . np.SF.Li.nFi.iAi) 


MA TN9*90 

; ; «*«#**«*# * 4 * * * $ ** *************** MA ! N 9400 

MA 1 M9410 
MAI M94?0 
MA IM94H0 
MA I M9440 
MA I M 94 50 
MA I N9460 

r,n jn 701 MATN94 70 


p * * # # * 


iF(nMAX,ci.nFLTA?.np.nMAX.i.T.nFLi An on in 701 

* $ fl» ft ft ft ft ft ft ft * ft A * ft ft * * * ft * ft ft ft ft ft ft ft sf« * * * ft i! ft ft * ft ft ft * ft ft * ft ft ft ft 4 * ft y? * Jje ^ <« # ^ ❖ * ❖ 




70? 


— thfck fop riicki. fwr, ofsign cpnvfrcfncf . 

Sfc * * * >Jt * * * X? # $ * # * # * * # * * >!■■ >i» * * + * $ # * # # # * * * £ <c >r * ❖ <: # * 5 

nn 70? i=i,MMMnv 
I FC inn I) .FO.O) fif! Tn 70? 
r.=ni>T tm( i ) 

IFF C .GT.nFl.T?? .MR . f. . I. T • OF I. T M ) flf m 701 
CPMI TMIIF 
KPN\/r, = 4 

ilRTTFf 1H.7001 ) 

RFTUPM 


MA I N94H0 
I M9490 
MAIM9500 
I N9S 1 0 
MA 1 M95?0 
MA IN9530 
MAIM9540 
MA ? M<?5*>0 
MA I MV 560 
MA I M 9 5 7 0 

MAJNV5R0 

MA1N9S90 


C #**&** 4tt #4 JM' *###«* ft ?»**£« >■.£*#&*#*<:*******){: ****#-•■,«❖ $##********:Jc#MA 1 M9600 

C CALCULTF SCAf.F FACTOR FOR UNIFORM SCALING FROM RUCK. CONSTRAINTS MAIMVMO 


50 1 on 50^ .1 = 1 . NKllCK 

srj )=n 

nn 50? Isl.NIIMRV 
«;n? s ( .t ) =s ( . 1 J +OR ! ( I , J ) * Am. IX I 1 
50^ S( n = ( f.nFFF l-FVPI ,1 n /S( J) + 1 .0 
0 F = 0 . 

nn 506 1 = 1 , n ki if k 
IF is r I ) . GT . OF ) OF = S { I ) 

50** CPMT TMIIF 

CALL MF Sri ( SF , np ,MF , I W ) 

IF! OF .GT .SF ) SF=nF 
nn 505 1=1. Ml IM|W 
505 ARIICI I )sAHI.n( I )*SF 
701 RFUfMn II 

S TP 

aoi n 

API If. 


p f An c t i > 

PFAO Ml) 

WP ITF! II ) 

PF7IIPM 

1 no A FORMAT! / iy,4?HM0. OF 
?noi format |4RW Miir.Ki.INr; - 


ACT! VP KI ir K I. 1 mi; CONSTRAINTS 
CPI f I f ' A | OF SIGN HAS rnNV/FRGFO 


.IS) 

// ) 


MMN9G.T0 
MAI M9640 
MA I N9650 
MAIN 9660 
MA IN9670 
MAIN96R0 
MA J M969(l 
MA 1 NR 700 
MA 1 M9 7 1 0 
MAI N97?0 
MA 1M97 TO 
MA I MW 760 
MA J MV 7 50 
MAI M9760 
MA 1 MW 7 70 

MA | M9 7H n 
MA 1 M9790 
MA J M9MM0 
MA | M9H 1 0 
MA! N9M?(> 


£> 
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POO? FORMAT! /M?H riPTIMAl.llY 1 NnF X PF DFSIGN VAKjAftl.FS FOR BUCKLING C flNMA f N4K30 
1S1PAIM1S //SX.SHPV MP, lX,7HACT/PAS,4X,SHINnFX /) MAJM9H40 

POO^ FORMAT! 5X. IS «A]0«F]5.5 J MAIMUBbO 

FMO MAIM«iHf«f) 


SURRPimMF PI SPfR.O, AMDA,Nf>I SP, ICPM ) MATN4H70 

P ****£$** ******* ***«***$**** ********************* ******** *************** MA ] M9H80 

r Ffwp Pin AC1IVF I.AMPPA I sc IF +VF n]SP. CONSTRAINTS) MAJN9P90 

p***************** *#**#**#***# ******************************************MA J N9900 
njMFWSTPM R ( 4 ) *n{ & . 4 ) * AMOA { A ) MA I NS V J O 


jr.nNsMnisp 

IFfNniSP.PT.I ) GP TP OOP 
AMPAl } 1 = R I 1 I /PC 1 , 1 ) 

I F I AMOA ( 1 ) .(VI. 0. ) RFTIIRM 
AMnA ( 1 )=P. 

I r,PM=n 
RFTIIRM 

OOP IFC 01 ?,?) .NF.P. ) GO TP 10 
t F( ni 1 ? l ) .MF .0. ) GP TP 11 
AMOA! 1 )=P. 

AMOA ( P ) = 0. 

TCPN=n 

RFTIIRN 

1 1 ARDAi ii=Pin/nii.ii 
AMPAl ? » = 0, 
i r.nMs i 

JF( AMI1AI1 ) .GT.n. ) RFTIIRN 
AMPA11 )=P. 

|CPM=0 

RFTIIRM 

IP 1FI 0(1 , 1) ,NF .0. J GP TP PO 
AMPA { 1 )=P. 

AMnA 1 P )=R( ? 1/m ?,?> 

ICPMal 

T F C AMDA1 P) .GT .0 . ) RFTIIRM 
AMPA(P)=0. 

TCPM=0 

RFTIIRM 

?n pfi.bIK 1,1 )*nc P.P)-ni i ,?i*nc \ »?) 
r.i*nn .1 )*n(? y ?)*t ,nr-n6 

TFl ARS (PFI. ) .GT ,r.l ) GP TP 30 

a i = r ( i )/nn,i ) 

ap =r ( ?)/ ni ?,p) 

1 F( A1 .LF.n. . AMO. AP.I.F .0. ) GP TP AO 
IFC AP.GT • A 1 ) Gfl TP SO 
AMnA! 1 )=A 1 
AMPA( P )=P. 

rr.PMsi 

RFTIIRM 

SO AMPAl 1 )=n. 

AMfTA ( ? ) = Ap 

ICPW=1 

RFTIIRM 

/.n AMnA 1 1 )=o. 

AMPAl 7 )=n. 

TCPMsO 


MAJN94P0 
MA! N9930 
MA I N 994(1 
MA I N9950 
MA IM9960 
MAIN9970 
MA 1 M99H0 
MAIM999P 
MAIMPOPO 

maimooio 

MA 1MOOPO 
MAI N0P30 
MA I N0040 
MA I MP05P 
MA 1N0060 
MAI N0070 
MA] MOO BO 
MA1N0090 
MA IMP 100 
MAI MO 1 10 
MA IM01P0 
MAI MO 130 
MAI MO 140 
MAI MO 1 50 
MA 1 NO 1 40 
MA I NO t 70 
MA I Mil l HO 
MAI MO 190 
MA I MOP 00 
MA I NOP 1 0 
MA I MOPPO 
MA I MO? 30 
MA 1 MOP 40 
MAI MO? 30 
MA I NOP 60 
M A I MOP 70 
MA | N07 HO 
MAIM0P90 
MA JM0300 
MA1N0310 
MA JM03P0 
MA I M0330 
MA I NO *40 
MA I MP3SP 
MA | MO *60 

MA I MO 370 
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PFTIIRM 

■*o a m n a ( i ) = ( n« ?, ? >*r<i >-nc ] ,? j *p i ? > )/hfi. 

AMHM 7)s(-ni?,l-|*RUI+n( 1,U*R< 7 ) 1/I1FL 
i f f amha ( l ) .m .o. . Awn.AMnA* ? i .(;i .n, ) rfuirn 

T F < AMPA( 1 > .G r ,AM|)A( ? } ) GO TP 60 
AMOA! ] )*0. 

amo a ( ?)=r( ?) /n( ?,?) 

?con=i 

T F C AMPA( ?\ .GT ,0 , ) PFTIIRM 
AMOA ( ? ) T-.CI . 

Tf.nN=n 
R F T IIP M 

60 AMn A { 1 )=R( n /n( 1 , 1 > 

AMn A ( 7 ) =P • 

!rnw= i 

IF! AMOA I 1 ).GT.O. ) KF1IIRN 
AMOA ( 1 )=0. 

Tcnu=p 

RFTURM 

FMn 


MA INOHHCi 
ma I NOjtgn 
MAIN0400 
MA1N0410 
MA 1 N04?0 
MA ! W0430 
MA fW0440 
MAIMOA^O 
MA I M04 M> 
MA I M0470 
MATN04R0 
MA \ M0490 
MAI NO 500 
MAI Nil S 1 0 
MA TN0570 
MA JNft*>30 
MA 1 NOR 40 
MA I NOS50 
MA | NORM) 
MAIN0R7O 


FPR ROUT IMF MFSG! SF.OF.SFF. fW) 


MA I NflSHO 


C PRIM! Fvf.M F FACTOR. FOP. SCAI.FH OF SIGN MA I MUMH) 

f| * * <c i)i if. * * $ ft * $ * >*f # £ i,t $ <« * # * * $ * # # # if # * # * * jjc »:« # # £ * * * # * * * * £ * sfc >!: fc * if * * V- £ * ❖ * * * 3= ❖ # # # # * M A I MO 6 1 0 


FFISF.GF.nF) GO TO RRO 
WR | T F ( 1W.1 OOT ) SFF 
HRMFI 1 Irf • 1 no A ) 

Gn Tn rsi 

ssn up HF ( | w, ioni ) sf 

WR I TF( |U f 1 OOR ) 

RR) RFTIIRM 

l 00 FORMAT! //I y.IRHSCAl.F FACTOR I R . F 7 . T , ) 7H AND OF FFR M J NFO RY) 
inn* FORMAT ( lM+ f 40X . 74HRUC.KI. I MG CONSTRAINTS ) 

100R FORMAT! 1W+,40X, I RHSTPFSS CONSTRAINTS ) 

FMn 


MAIMOfiPO 
MA ] NO 6 30 
MA ! N0640 
MA I MO 6 50 
MAIN0660 
MAIMO670 
mainoaro 

MA I IJ0640 
MAI MO 700 
MA | NO 7 \ 0 
MA 1N0770 
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SIIRRPII1 INF TRUSS f A. Mini) 


Tuusnono 


(|**4 4 * 44**4 *4444 4 44 * 4**44 * 44 * 4 44 * 4444444 *** 44444*4 

C TMRFF PT M FMS I FINAL RAM FIFMFN1S 

£ 444 * 4 #** 4444444 ** 44 ** 4*4444444444 4 ** 4*444 *#4444*4 

OTMFMSTPM A(MTPT) 

r.nMMnM /fi.par/ mpari i &) .miimmp ,mramo, mfli yp.ni 

1 *MIIMF|. ♦WIMnV.M] ,MFOH.MH|_nr,K 

COMMOM/.IIINK / I.T,I.H,I. , SIM ?1 ) » I OW AR , I FX 

fOMMOM/IIMITS/ IK# IW,TP.ll.!?.l?#|K#r9#llO#m# 
Ml IMF sM P A P( ? ) 

K POFsMPAR ( S J 

1 f I nparm ) .Fn.n)f,n in son 
r,n in n . 1 #?) • kppf 

£ 4 * 4 * 444 * 4 ##** * 4 * 4 #*** ##*# 4 ************ ***#***#*#*# 


**44444444444**4*4444 TKIISOO 1 0 
TRUsnn7o 

4*444 4444444*44444444 JR tlS<)0 30 
TK ( lSP(140 

»N? *N3»N6,N c .,MTTT •NFOTKII<»Onsn 
TKIISnOAO 

#FRC. AR FA, JUNII R 34) TOMS 00 70 
I 1 ? » I 1 3 TPUSOOHO 

TRUSOOkO ' 
TRIJS01 no 

trusouo 

TRIJS0170 

4 ** 4 * 444 * ****** ****** Jp [ ISO 1 30 


C KP 0 F =1 INFRTIA IS PRPPPRT IPNAI. IP ARFA FOR I.PP.AL BUCK L 1 MG TRPS 0140 

C ? IMFRT1A IS PRPPPPR riPMAI. IP AR F A*4 7 FPR LOCAL RUCKLING TRUS0150 

^*****4******44****4******** ****4********* ****************************** TKUSO 1 f)0 


1 M|(MMAT=NPAP{ 3 ) 

MIlMGFPeNPAR (A ) 

MIIMTCsMp AR{ A ) 

MAsM^ + MIMMP 

M 7 =M^+MUMM A T 

MP«M 7 + NIIMMA 1 

MQsMR-f Nl IMM A 1 4 N||M TC*S 

MM- WO+ Ml IM GF O# ? -M T P T 

I F( MM ,GT # 0 )C ALL FPPPR(MM) 

CALL RUSS ( Af Ml ) ,A (Ml J t A (N? ) • A (M? ) , A <N4 ) v A (NS ) v AINA ) , A I N7 ) » 

1 A( MR ) , At Nq> ,M|IMnV *N||MNP V MI|MMA I * N 1 IM TC # MIJMGFP • KPPF ,MUMF) 
RFTMRM 


rRiisni 7 o 
1RUS01K0 
T RMS 01 <#() 
1 RUSH? no 
TR I ISO ? 10 
TRIISn ? 7(l 
TRUS0730 
TR US OP AO 
TRUSO ? 50 
TKUS07M ) 
TRIISO? 70 
TM1LS07H0 


S44 # 


# i.R » n ) 


Q 4 *4* 4 4*4444 4 sit 4*444**44*** 4* ***4**44*44 4**444***** 

C PROVISION FOR SPFCJAL TRUSS FI.FMFNf 

£44444444444444444444444444444444444444444444444 
? CALL MPFI.FM (MPAkt 1 ) ,MPAR 15 I , (Wl 
P F TURN 

son wpttf (iw,?nn7) koitf 

PP Ron MMs ] « M| IMF 

CALL SIR set AIM] ) * A ( N } ) , A ( M 3 ) ,MFO , NUMIlV , I.L 
WRTTF t |W,?OOS ) mm, ARFA 
PP RPP I sLT.I.H 

CALL STRSCt At Ml ) . At Ml ) ,A(MT> ,MFO, NIIMMV , I.L . L R • 

I Ft L . r#l .LI ) MR ITFt |W,?OPA ) 
up itfi iw,?no3 ) L #sir;t i > 

GO 10 t^# 3 «A>,KP 0 F 

C 4444*44444**4 4*444* 44 * *44*444444* 4 444 4 *4 4 44*444 *4444*44 *4 444444444444*4 [r | )$04 3() 

C OFS 1 GM OF PAR FI.FMFN 1 .S FUR ^TRFSS AND I.Pf.AL HMCKI.ING TKIIS 0440 

C 4444*44 444444 4**4 *4 *#* 44*4 4 * 44444 ** 4*4 ft**#*$*« 4 4*4 44**4 4 444444 4 4444444471^ JS 04 50 

’ CALL fO PUSS ( AfMl | ,A IM? ) v Af M 3 ) 'MIIMIIV ) TRUSP 4 R 0 

GO TO Ron THHS 0470 

£44444444444444444444444 44 44 4444444444444 4*4*4 444444444444*4444444*44### TPUS 04 R 0 


4*444*4444**4*4**4 1 r 1 is n? 90 
TRU5ft30n 

t * 44444 * 444444444444 * 44 4 4 7R | I ^ OH 10 
THUS 0370 
TRUSO 330 

TRUS 0340 

TRUS0-J50 
TKUS03M) 
T R I IS 03 70 
TRUS03RM 
TRIIS0340 

trusoaoo 

TRUSH4 1 O 
TPUSOA?f) 


.1 ) 


C PRPVTSIPM FPR OFSIGW PF SPFCIAI. TRUSS FLFMFMI 

C *4 4 4 444444444 * 44444 * 4 * 4*4 * 44444 * 444 * 4444 * 444444 * 4444444444444*4444444 

£ COMTTNHF 
ROO fOMlIMUF 
RFTMRM 

?nn? FORMAT I //A?M ANA I YS I S OF TRUSS F I. F M F N I S # COWS IRM £PnF=,I? // 

1 67H F| FMI-MT X — SF f T ARFA I.PAP r."NI) AXIAL H’-RCF /) 

?003 FORMAT I lM+,?*y , |5,4X ,F | ?./. ) 

70OA FORMAT! / ) 

?npR fppmat ( I 7 ,?x , f j 7.^ ) 

FNO 


lHUSo^«n 

TPUS0500 

TRUSP510 

IPIISOS7P 

rpUSPSHO 

trusos^o 

TRUSr»R5(* 
1 R USOSftO 
T P I ISOS 70 
TP USMSMO 
IPMSOSMI) 


Q. 41 


siPRRmniNF miss c i iv t t m* x,y./, t,mic.wt,pmai ,PGFP tNUMnv,MUMNp t TKUSOMm 

1 MIIMMAT ,NIIMTr. .MIIMGFP, KPPF ,NI|MF ) TRUSOftlO 

.(;*********************************************************************** JPUS067 II 

C UNIFORM CROSS SFCT1PM WfcU Fl.FMFM TS THUSOftAO 

(-******** **** ****** **** #** A##***#***#**#* ********** ************* *4#**#** TP US 0540 
TMPl.ir. IT RFAI.#R (A-M.0-7) TP.US0650 

ttrAL*4 X, Y, 7 » 1 ,wl ,PMAT* Pr,FP t IIWl , FRf. , HMCK YY , lUIf.K 7 7 * FF ? , F F4 THUS PAM) 

n IMF MS TOM T n( MUMMP , f. ) ,X{ NIIMMP ) , Y< Ml IMNp ) . 7 ( MUMMP ) . T ( MIIMMp ) , I P \ IS05 70 

| MIC [NUNMAT ) ,WT(MI|MMA1 ) , PMA1 1 Ml IM T C , 5 , Ml IMMA 1 ) , PGF O ( N| IMGFIl , ? 1 t TRHSOARO 

7 I|MT( MIIMOV ) TPUS0590 

r.nMMPW/FM/l A ),MA*Al f P«A,4),«;i If.) . T T ( 4 ) , X M { A ) , O ( 5 , 5 ) , FM 1 < 75 59 1 THUS070P 
r.nMMnN/.IIIMK/FMIIU 4,4) ,FF( 4 ) ,PHP f TFMp.XXI ?) «YYI ? ) *77 ( 2 ) |V|4) , TRIIS0710 

j ,u im i^oa) rmiso7?o 

COMMOM/r. ON TR / TC M n ) •I.HIICK . IC7( ] *> ) 1RMS07W 

COMMOM/iiNf TS / IP. |W»TP*11«I?»!?*1R»I9,MP*H1*!17«113 TPUS0740 

f. *********** ********** **************************************** sc##**#***# TP I IS 0 7 So 

f COMIRPL 1 M F P R M A T 1 P M TPUS0750 

C * * * * * * * * * * * * * * * £ # * * * * * * * * * * * * * * >? * * * * * * * * * * * * * * if * * * * * * * * # * * * * * * * * * * * * * * * T R l ) S P 7 7 ( ) 
M|l=| THIIS07H0 

MV=l T PUS0790 

MWa] TPIlSOHOn 

Mn=A TRMSOMlO 

M Sr 1 TPMSOHPO 

M T = 4 TRIIS0H30 

mr=1 TPUS0H40 

MS Os 1 TRUSPH50 

TFX=KPOF thmsohmi 

WR T T F( 1 '*J * 7 POO ) Ml IMF , KPOF , NIIMM A T , Ml JM TC • Ml IMf.F p TKUSQ870 

f ************************************ ft*** ******************************* TRUSOHMO 

C MATFRTAI. PPfiPFRTY CAROS TRUSORWO 

f A*************************** *********************** ******************** JR US0900 
WR T TF ( 1 M , pop 1 ) TR I IS 09 Hi 

Op IP I=j|, MIIMMAT TRUS0970 

RFAFl ( I R ♦ l 00 | ) M , M T C ( M ) , W T ( M ) TRMS093O 

ir imic im ) .F o.n ) Mir . im 1 = 1 trusohao 

WRTTFT T W , 700 7 ) M , M TC ( M ) , T ( M ) TRIISP9 50 

f ******************************* ft ft* ************************************* yp | IS0950 

c TFMPFPATURF OFPFMOFM T MATFKIAI. PPPPFKT1FS TPUS0970 

f *************************** * ******************************************* JR uS 09HO 
MTsMrr.INI TRUS099P 

OP in J = 1 ,M7 TP l IS loop 

P F AO MR,70P«) ( PMATC .l,K ,M ) ,K = 1 ,S ) TRUSlOlO 

1 F I PM AT 1 .1 ,5,M 1 ,I.F . n ) PMA1 (J.S,M)=PPA1 TRUST 07 0 

IF ( ,1 # MF , 1 ) WR I TFT I VI , ?OP9 ) TP US 1030 

TP WPMF I ?«, 7010) (PMA1 r.i'K'M) ,Krl .S) TPMS1040 

^ *************************************** ** ****************************** f m is l o 50 

C 0FPMF1P TC PHMPFPIY CAPOS TRIlSJOPP 

*************** **.#;>****** * ******************************************** ^TRdS 10 70 



MR MF 1 I H, 700 4 ) 


1PIIS1 OHO 


DP S) ] = 1 v M||Mf;FP 


THUS 10W0 


P f a o (TP, i pp 4 i m , ap F a , (pr,rn|N,j 

1 ,7 ) 

TPMS 1 \00 


IF{ APFA.I.F .O.n)AHFA = l .0 


1 HUS 1 11 o 


nn pp ,» = i ,7 


1PUS1 170 

nn 

if ( ppr-n ( m ,.|| .1 F , n. 1 PGFI'T m. .1 1 

it i oonnoo. 

TPMS1 l 411 


Up I TF 1 IP, 7PP7 J M, APF A , 1 Pi;pn | M, 

» ..'-1 .7 ) 

TPMS 1 140 


AA = APFA<-*1FX 


TPMS 1 1 50 


nn si .i^i ,7 


TRUST 150 

si 

p r. r n ( m ,.i i = q , «.a«ia *p(;pr*( m,.ij/aa 


IP MS u 70 

C * * * * * 

! * ft* * * * * ft* * * * ft * ft ft ft* ft ft ft ft ft ft * * ft ft ft ft 

ft * ft ************ * * * 

****************** IRllSl 1 HP 

r 

FI. FMFMT 1 riAO P-MI. T TIM. MRS 


1 PUS 1 1 90 


Q. 42 



f^* ********************************************************************** TRUS1? 00 

RPAnMR , ion* )fmiii. trus1?1o 

URHFf TU,?00^ )FM|II. TRUSI770 

f,********** ************************************************************* TRUS 1? HO 

C Fl.FMFMl r. ARDS TR1IS1740 

£ ** *************** ********* ********************* ****** * JSC*** ******* ****** TRllS 17 50 
wpf TFf iw.pons | TRHS1760 

Ms 1 T HI IS l? 70 

ion RFAPI IR ,1 004 ) lFL,.n,JJ # |MAT,|f;FP.rn\' ,FRf.,RFFl ,FI.PYY t FLP7Z, INC TRUS17H0 
f F( 1 FI. .1. T.N ) W1 T n 70 0 T R I IS 17 VO 

TFfFPr.I.F.n.ni' FKC=] ,0 TRNS1?00 

ifc tnc .F n.n j \uc.a i TPnsmn 

TFIFI.PYY-LF.n.O) Ft_PYY=1.0 TRUS137H 

IFC FI.P77 J.F .n.O) FI_PZ7 = 1.0 THUS 13*0 

KK = iMr.*i ifi.-mj triisi?4o 

T=M-KK TRUS 1 H 50 

Js.lJ-kK TRIIS1?60 

nn son mF|.=n,|fi. TRUS1470 

TRUS 1 ?no 
TRIISl *9(1 
TP US 1 400 
TRUS1 4 10 
TRUS 1470 

TRIIS 14 '40 

**********************************************TPI)Si440 
PRHPFRTIFS FPR AVFRAGF Fl.FMFNT FFMPFRATURF TRUS1450 


xxi n=y ( t ) 

XX( 7 ) -X( .1) 

YYI 1 I = Y I I ) 

YY( ? 1 = Y( .1 ) 

77 M 1=711 ) 

77i ? ) = 7 ( .1) 

f * * ** <i * * A * **** * **** * ****** : 

C IMTFRPni.ATF MATFR1AI. 


£******************************** **********#*****************#**********TR M S]460 
TFMpsn.s*! TM ) + l( J) ) TR US 14 70 

f Al.l. INTFRPIPMAT *FF .AIIIMir ,M|IMMAT **»f a ,wir. ( I MAI ) , IMAl , 1FMP ) TRUS 14H0 

(-.**«**** *************************************** **$£$*#£*5 *************** TRUS 1 400 

f FORM Fl.FMFMl I IN 1 1 MAlRtf.FS AMU I PAH VFC1PRS TPUS1500 

f # *************************************************************** ********TRUS 1 S 1 0 
PHP = IJ7 I f MAT ) TRIIS] 570 

TFMP=TFMP-RFFT TPUS1540 

r.AI.1. F TRUSS TRIIS 1540 

T F( I.R'ICK ,Fn,n) fin TP HOO TRUS1550 

f Al.l. TGFHM(VC 1 ) «VI7UV I?) *v(4 ) ) THUS 1*60 

r.M.i Fi.Gsuwt r;,MSf;*Mn,Mo,n i ) trusi*7o 

100 HHsFFI 1)/| VI* )*V(4 ) ) TR US 1 5 HO 

Wir.KYYaPOFPI TGFP , 1 )*HH*FI.PYY TP US l 5 WO 

«ur.K7 7 = P^FPMr,FP,? )*HN*FI.P7 7 TR US 1 600 

FFH=FF(3) TRUS1410 

FF4=FFf4) TRUS1670 

IIUT( invisllWK inw )+RHP*W{ 4)*FRf. TRllSlMO 

f *********************************************************************** TRUS 1 64(1 


HAND WIDTH 

******************** 


C FORM l.nCATIPN MATRIX AND COMpUTF 

nn 4oo i. = i , ^ 

i M( U = jn< 1 .1 j 
400 1. M{ I. + 4 )= IO( ,1.1.) 

CM.I. f.Al.R AN I Mp] F « I.M, S, P # ST. 1 T ,NII,MV ,MS.MD 
up IFF I mi MJ »Rlir X YY • PMCK7 / *FF3,FFA 
up IIP ( I w, ?nn/» ) WFI. , I "I. I MAI . I UFO, J MV, h»C ,RFF 1 


T R US 1 6 50 
************ JRUS 1660 
TRIIS 1 670 
TPUS1 6R0 
THUS 16 WO 

MW, |nv, ir-X f FRC ) TRUS 1700 

r R I IS 1 710 

FI.PYY , FI.P77 , NO 1 F TR US 1 770 


f* s * *************************************************** *********** 

c r.HFf.K FPP Mf'RF F l_F MF NTS 

*********************************************** **************** 

1 = T + 1 Mf 

,|s.|+ I Mf. 

SOO r PM 11 Ml IF 
Ms J FI. + 1 


****** | R US 1 7 40 
TRUS 1 740 
****** [huS 1 750 
TRUST 760 
fWUSl 770 

TRUS 1 7«0 
IRIIS17WO 


Q. 43 



IF(m.i.f.niimf) i;p in inn 
RT Tl Itt to 

7nn w r f i F ( 1 w ♦ ?o 1 1 ) 
stop 

100] FOPMAT f ?1 5, F1 P.P I 
1 OO'* FORM ft T! 4 F 1 O .O ] 

IOoa format f m s , a f i n , n , is ) 

Ioof forma T( ! s^y ,3F in # n) 

?nnn fopmat ( aahi niinrfk of i r i i <; s fi.fmfn i s r , 1 5 / 

1 A AM CONSTRUCTION f.r»f)F =*15/ 

7 44H MI1MRFR MF MA1FRJAI.S = ,15/ 

3 A AH NIIMHFK OF IFMRS F I IP WHICH MAIL PROPS G|VFN=,I5/ 

L AAH MIIMRFK of niFFFRFNl ofmmftrifs PROPS (;i VFM=, ! 5 ) 

7001 FORMAT!// 7*>H M A T F H I ft I. PRPPFK TY CARITS // 

1&1H MATFHIAI. MIIMUFP SPFC I FTC. YOUNGS 

7 OF / — AI.LPWAhLF ^TRFSSFS — / / 

*91H MHMHFR OF TFMPS WF 1 GHT TFMp MODULUS 

A X P A M r FM S [ PM CPMPRF SSI ON /) 

700? FORMAT! IF.5X. f S * F 1 7. A) 

?003 FORMAT!// ?5M F| FMFMT 1.PA0 Mill. T T PI. 1 FK S / ?0X , 1 H A , 1 AX ♦ 1HR , 1 AX , l HC 

] 1 A y t 1 HP* /FH X-OIP *AF1 5.F/ FH Y-IT I « , A F ] 5 . F / FH 2 -IT I « , 4F 1 5 . F / 

7 FH TFMP # 4F15.F) 

7PP A FORMAT I ?7,1X.SI7,AF1?.A,17) 

700^ FORMAT!// ?3W PPPCFSSFI) FI.FMFMJ MATA// 

/ -MOpF WPS—/ / — FI.FMFM1 ID MMS-/ OF SIGN VAR 

FIXITY f.OFFF ICIFNTS RANf) / 


1 1 1 FH FI.FMFN7 
7RFMCF FM 0 

31 1 F H NIIMRFP. 

A FMP 

700F FOR MAT I // 7FH 
1 AFH GFOMFTRY 
? a SM MHMHFR 
7007 FORMAT! 1 F , ? X 


I 

YY 

GFOMF 1 R I c 
X-SFCT 
ARFfr 

3F 1 7 .4 ) 


J M ATI. ftFOMY I) VAR FRACTION 

7.7 WIDTH /) 

PROPFRTY carps// 

/ — MOMFNIS PF 1MFH1IA — / / 

YY 77 /) 


70PP FORMAT ! *>FIO.O ) 

700Q FORMAT! / ) 

7010 FOPMAT I lM+*?Oy,FF! 7.4) 

7011 FORMAT! 7«H TRUSS FI.FMFNT 
FMP 


CARD TM FUROR ) 


TP US 1 ROD 
TRIIS l«|ll 
TRUSIHPO 
TRMS1 830 
TRUST HAD 
TRUS 1850 
TRIIS] RM) 
TR I IS 1 870 
TRUSlHflO 
TRIIS 1890 
TRUST WOO 
TR l IS 1 9 1.0 
TR US 1 W? 0 
TR US 19 30 
f.OFFF T TRIIS 1 940 
TRIIS 1950 
THERM ETRUS19F0 
TRUS 1970 
TR US 1 98 0 
T R US 1 9 90 
TRIJS7000 
T R l IS? 0 10 
TRUS? 0/0 
TRUS? 030 
REFFTRIISPOAO 
TRIIS7050 
TT R US? OFfj 

T R us? 070 

TRUS? OP. 0 
T R US? 09(1 

Tuns ? ioo 
runs? l in 

TRUS? i?o 
TRUS? 1 30 
TRUS? I AO 
TRUS? I 50 
TRUS? 1F0 


SlinROIITIMF FIRMS* TRUS? 1 70 

C ********** ft ******** *************** ************* * ******* ***********#***#J-p||S?lttn 

r FORM TRUSS FI. FMFMT M A T R I C F S TRUS?190 

f TR 1 IS?? 00 

IMPl.TCfT RFAI.*8 IA-H,P-7) TRUS??!!) 


C O M M 0 M / F M / 1_ M ( F ) ,S( F ,F ) ,P( F ,4 ) ,S |! F > , I I ( 4 ) ,XM( F) ,G! F, F) ,FM1 ( ?F59) 
COMMON /.U INK /F Ml Jl ( 4 . t, ) , F ( A ) , RHP , T FMP , X ! 7 ) , Y I ? ) , 7 ( ? ) « V ( 4 ) , Jl IN ( 304 ) 
OTMFMS TOM F MM ( 117) 

FOIMVAI.FNCF f S ♦ F MM ) 
np 5 T = 1 ,11 7 
5 FMM(T)=P. 

************************************************* ******************* 

CPMPIITF IIMIl S1IFFMFSS AMP I.PAP MA1PICFS 


TWIIS???0 
TRIIS?? 3!) 

r w i is?? ao 

TR I IS?? 50 
TPUS??M> 
TR US J? 70 

r. ********* *********** ****************************** ****** ******** ******* I RllS?? 80 
C COM PI IT F UNIT S1IFFMFSS AMP I.PAP MATRICES TRUS??90 

c * ft * ft ft ft * * * ft ft A ************ ft ft * ft * * A * * # # A A * ft ft ft ft V ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft | U 1 1 S ? •} < ) 0 

r.Al.L VFCTPW I V, X I 1 ) , Y Ml , / I II -X I ? } . Y ( ? ) . / ( 7 1 ) T R U S ? 3 1 O 

on i n 1 = 1,3 TRUS? <?(i 

ST f n = -VI 1) /V( A 1 I R US? 330 


10 ST! T+3 I =-S Tl T I 


TR I IS? *14(1 





nn ?on 1 = 1 , a 
yy= s rr i_ »*F( i >*v(4 > 
nn K = r.,A 

M K *L ) =S 1 ( K ) *YY 
?3n SM_ ,K ) = M K,l. ) 

3 nn sti u=f< m*s in. ) 

r ********#«$##*#*#*****&* £*##*** * * * **$**: 

C f;R/u/lTY awn thfkmai. i.n/ms 

r.**#*# It ##**#****>{:*«******»!:###*#«* ***«**#: 

F T =— r FMp*F ( n*F( ? ) 

F=n,S$RHn*V{ A | 
nn 3sn i = i v a 
HM=FMMUl.,A)*n 
T r( L l=HH 
nn m= \ , ^ 

P( M t L)=FMI|| ( |. .M ) *F+MH*V( M ) 

3 Sf) pfM+ 3 ,f ) = FMM 1 (I ,M|*F-HH^V{M| 

RFTHRN 
f Nn 


1KUS7350 
I RMS?3ftO 
TkUS ?370 
T W I IS? 3 RO 
rRi/s??vn 
TkiiS?4oo 

$**#1,*##* ti* ******** S***#***! TP US? ^ 1 0 

TRUS?A?0 

-t***##**#^**#*^*** TP US? ^ 31 ) 

FPHS 7 AAO 
TP IJS? 4 *>0 
1 RIIS?4M) 
TRHS7A70 
rP(IS?4R() 

runs ? 440 

TRMSPsnn 
7 PMS 7 S 1 n 
trhs?s?o 

TP US? *>30 


siiRRnin imf i(;FOM(nx*nY v ii; , xi ) tpus?sao 

r FORM TRUSS FI.FMFH7 HMIl GFOMFlRir SlIFF-MFSS MATRIX IM CLONAL TRllS?SftO 

r CHORD | M A TF S TRMS 7570 


IMPLICIT RF AL*« [ A-H.n-7) 

COMMOM/FM/I.M! ft) ,S( ft, ft) »P( ftt A J , ST I ft) 1 1 T< A ) , XM(ft) ,G(ft,ft ) ,FM} ( Pftsq) 

r, <i,i i = ( i .n-ny*nx ) / xi. 
ni 1,7 ) = -nx*nvy xj. 
r,[ ] *3 ) s-nx*H7 /Xi. 
r;r? ,? i= n ,n-ny*nY)/xi. 

Ct 7 ,3 )=-nY«n7/XI. 
o<3,3 )- ( i . 0 - 07 * 11 / ) /xi. 

0{ 7,1 )=G< 1 ,? ) 

M?,l)xfil)r^) 

G( 3,7 IsM 7,3) 
nn inn 1 = 1,3 
nn l no ,i=i # 3 

ci i +? , ,i+3 ) =(;i i ,.i) 
r,( i ,.i+3) =-cc i . .i i 
inn r,i r+* •.■)«-£! j ,j) 

PFTIIRN 

RMn 


7PUS?S90 
THUS? MU) 
T Rl IS? ft 10 
T«ns?ft?o 
TRllS?ft30 
TRUS?ftAn 
rRMS 7 ft 50 
T PUS? ftftO 
rpiis?ft 7 o 
TRNS?ftHO 
l«MS?ft40 
fRUS? 700 
J R I IS? 710 
TkliS? 7?0 
TP US? 7 30 
TPNS? 7 An 
T R I IS? 7 SO 
TRUS?7ftO 



SUHROIITIMF OIKIISSf Arim, AMP'J ♦l.f»An,MHMhV ) fl< I IS? 7 70 

f ******************************* ********************************** ft***** 7p US^ 7M0 

c • — FI ILL Y ST»FSSF|1 nFSM ;M FPR TRUSS FLFMFMTS T«llS?790 

f *********************** * * ■■';■ ********************************************* TRUS?KOO 


n I MFWS IOM API. Of MllMnv ) , ANF‘<J( M||M|IV ) , l.n A|) ( MIIMI1V ) 


,P1 »P? tPFY ,P ) 


COMMON/ JIIMK/ 

1 \\7 7 . TFMS.CPPI 
P = SHU ) 

T F c p.GT.rt.n i r;r i m mo 
PI =r,npi * ARF A 
p?=o ,s*pi 
p = -p 

PFYsX TNFPT*PYY 
yj.Ysp/pFY 
RMAXsSOR T( Yl. V ) 

CM I . .IPHMS MFX.P 
IF (P.OT.WMAV) PM AX = R 
P F 7 = y 1 M F R T * M 7 7 
XI.7 = P/PF 7 
P=SORT ( XI. 7) 

IF ( R.nr .RMAX) RMAX=P 
r.Al.l. .IPHWS UFX,P.P1.P?«PF7,R) 
IF ( R.KT'RMAX) PMAXsR 
c-o m no 
inn pi=tfms*ARFA 
RMAX=P/P1 

11R AA=RMAX*API.f)( inVAP } 

T f i aa.it. anfui jnvAR i ) c;n TP A .0 

AMP-1( mVAR ) = AA 
1 PAnf T PVAR ) =1. 

An r,HMT i mi if 

RETURN 

FMO 


I. r*LH,l. ,SM?7 ) , IDVAR , IFX, FRC, AMFA, X IMFR1 , BY Y « 
.MINK 3?9 ) 


TRHSPB10 
TR ll.S? H? 0 
TRUS7H30 
TRI 1 S 7 HAO 
TP. I >S? B *30 
TR l IS? MAO 
T R US? M 70 
I P I IS? HHO 
I R I IS? H «30 
TRUS7900 

tp i is? ^ in 

TRUS?9?0 
THUS? 9 40 
T R I IS? 9A0 
T R l IS? 9 50 
1RUS?9M» 
1 RIIS7970 
TRUS?9H0 
T R l IS? 9 90 
THUS 3000 
T R I IS 30 1 0 
TR US 30? 0 
T»nsnn.*n 
TRUS30A0 
TRUS.305O 
T»US3»60 
TR l IS 30 70 
T.PUS30R(i 
TR US 3090 


r**** 

(■**** 

1 


? 


SURROIITIMF JOHNS ( I • a , p « C « n • A A 1 TRIIS3100 

>|| * * * * * * * ** * # * * * * * * v * * ** * * * * * * a a a * ** * * * * * ********* * * **************** t R US 3 1 1 0 

-.inuMSPMis PAPARM1. A USFU FUR PFHFS10M UMUFW f.PMPR F S S I VF FPRCF TRUS3170 

********** it ********** * ********************************************* j- f.> 1 1 5 3 i '4 ( > 

OP TP ( l ,? 1 3 ) ♦ I T RUS 3 1 AO 

A A = R — ( B— C ) *F /n IRUS31.S0 

if I AA.ij.n.nnnoi ) <;n ro so tpus31ao 

A As A/ A A TR US'-* 1 70 

PFTURM TRUS3 } HO 

AA = n.n I RUSH MO 

RFTIIRM T R MS 3? 00 

AA= I A-*- • I »-f. l*r./D) ) /H TR US 3? 10 

RFTIIRM 1 R I IS 3? ? 0 

aa=sppt ia**?4-i itwr.^nK. i/m ) tr us 3? 30 

AAs(AA+A)/7/K (mis i? Ad 

R F T HU M IRMS^PSO 

FMr > fHUS.VMi 


& 

-F* 

Q\ 



SHRROIM IMF HFAMf A.MTPT ) RFAMOOOO 

f; ************************************** ************** ***** ************* *Rf ft MOO 14) 
C 1HRFF p|MFM^ I PMAI. «F AM F l.f-MFM 1 S RFAM00?0 

c ***************************************************** ****** ************^^00 30 

PTKFfiSIPM AfMTOl) RfAMOOM) 

COMMON /F|. PAP/ MpAR( 1 A ) , NIIMNP ,MRAMO, NFL TYP , N ! » N? . N3 , N A , NS , M T T T . NF OR F AMOO bn 
1 . Ml IMF f. .Ml IMP v , Ml , M? , M?, LL *I.M .NFfltt .Mrtl.nr.K RFAMOOHO 

COMMON/. II INK /I. Ttl.M.I. .S IC( ?1 ) » I IWAK , I F X * FRC . AR F A ♦ JHN It 334 ) RFAM(H)7() 

COMMOM/IINIl^/IKt lW,IP # H.I?*T?.TH,m,Iin, 111,11?, m RFAMOOHO 

Ml IMF sMP AI{( 7 ) KFANll(HI) 

KPHFsNp AP f S ) HF A MO ] 00 

1 Ft MPAR I 1 ) ,F 0,0 ) on TP SOO RFAMUllO 

no TO ( 1 . 1 t ? ) • KPflF PFAMP17II 

C ******************************** ****** ************************** ******* ^ p AMO 1 30 

C R F A M F|.FMFMT<, WITH INSTAMLMY CONSTRAINTS KFAM0140 

C KOOF =1 fMFKTIAS AMO MPPIII.I ARF PROPORTIONAL TO ARFA MFAMOl^fF 

C 7 1NFRHAS AMP MpnnU AUF PPPPOR T 1 OPAL IP ARFA**? AMI) RF AMO 1 Ml 

C ARFA**1.S RFSPFC T! VFI.Y RFAM0170 

f;*** *********** ***************************************************** **** rf AMO 1 MO 


1 MIIMMATsNPAPt 3 ) 

MllMRFPsNPAK 14 ) 

Ml IMF [ XsNPARt A ) 

[F (NIlMFiy.FO.n) Ml IMF 1 X = 1 

MA = MR+MI|MMP 

N7 = NA+NI|MGFP 

MR = M7+NI IMOFO £Q 

Mo= NP + NI IMMA T 

Ml OsNQ+NIIMMA7*S 

MM=M1 n+NIIMF 1 X*) ?-Mlpl 

f Ff MM,GT*njr.AI.I. FKPPR(MM) 


PF AMO 1 90 
RF A MO? 00 
WFAMO? 10 
RFAM0??0 
R F AMO? -JO 
KF AM07A0 

K F AMO? SO 
HF A MO? AO 
HF AMO? 70 
RFAMI1?RU 
H F AMO? 90 


CALL 1 F AM ( A < Ml ) ,A(M1) , AIM? ) ,A IN?) , A (M4 ) , A (MH ) , A (N7 ) , A(NH ) , A [ M9 ) , HFAM0300 
1 A( Mini .NIIMOV .NJIMMp ,MIIM(;FO , MOMMA 1 ,NI1MF| X . KOfTF . N1IMF , NPAK t A ) ) RFAM0310 

RFTHPM HF AMO?? 0 

^ **************************************************************** *******^p A MO .3 -JO 

C PROVISION FOR SPFCTAI. RF AM FI.FMFNTS RFAM0340 

C ********************************************************** *************R F A MO 350 
7 CALL MOFl.FMfMPAK (II .KOIIF , |U ) HF A MO 3M) 

PFTHRN H F AMO 3 70 

*nn HR I IF I I l J , ?00R | KODF HFAM03HO 

on ROO MMsl • AM IMF HF AMO 3 90 

CALL Sl» SC I A (Ml ) ,A(MJ ) , A (M? ) ,MFO, NIIMOV, II , I.R.O) RFAMI1400 

WRTTF (IW,?nOS) MM, ARFA RFAM04 1 0 

nn won l«LT.».h hfamo4?o 

CALL STRSCt Al Ml ) ,A( Ml ) ,A[ N3 ) .MFO.MIIMIIV ,1.1. , I.R, 1 ) H F AMD4 30 

IFIL.ro. LI) MRI1F ( IH.700A) HFAM0440 

WRITFt A,?nn7) L.( SIGM ) .1 =1 .1? ) RFAMO450 

r,n TO I 3 ♦ ? *4 ) , KODF HFAM04A0 

C ************************************************* ********£*** ********** HFAM04 71' 

C OF S 1 CM OF RF A M FI.FMFM1 S FOR S1RFSS AMO LOCAL RUCKLING CONSTRAINTS HFAM04R0 

C ***** ***************** ********************* ****************** **********p p A M04 90 
* CALL ORFAM( At MJ ) , A CM?) , A(M3 ) ,MHMpv ) HFAMOSOO 

on Tn ROO H F AMOS 10 

C ************************ * ** ******** ******************************* ***** ^p AMOS? 0 

C provision for rfiifsign of spfciai. hfam fi.fmfmts hfamos-jo 

f******** ********************************** ** ************************** *HFAMl)S40 
4 COM! I Ml IF H F AMO S SO 

ROO C OM 1 J M| I F HF AMOS HO 

RFTHRN H F AMU* 70 

?nnn format (// 4iH analysis of rfam mfmfnis, confirm cpof= »l?// hfamosho 

lin/.H FLFMFMT X-CFC1 APF A l.f'AI) rPMO A X | A I PX SHF AM MY SHFMF AMOSyi* 


Q. 47 



?AP R 7 TPROIlF MX MPMFNT MY MMMFNT MZ /) 


PFAMOMIO 


?O0* FORM A T( l 7 , F ] R ,4 ) 

700* FOR MAT f / ) 

?nn7 FORMA T( 1 H+,?n», |S ,AX,AF ]?.'»/3 ?X,6Fl?. 4 ) 
Fwn 


RFAMOMO 
RF AMOfr?P 
RFAMHf.30 
MF A M0F4II 


SMRRPH1 IMF 1 F A M ( I l'J 1 * I n ( X • Y « 7 • K S F C « P GF P . Ml «PMA7 t SF T , NllMI) V , Ml IMM P , HFAMP650 

1 MI|Mr,Fn,MMMMAT .NIIMF TX , KPPTF « Ml IMF « Ml IMF X ) HFAMO&M) 

f #****##*****#« *********** 4 & £ * * 4**4 $V 4 * # ^ * # # # * * * >>: # * HF A MH 7 n 

C 1 IM I FORM CRPSS-SFCT TPM RFAM F I. FMFM f S RFAM04R0 

f «****»***iii***#***###***>*f****####*fr***##***#««#«*«<r ««*«**«***«*«# ftp A MOf,qo 


\ 

P 

1 


IMPLICIT RFAI.4R ( A — H » P— 7 ) RFAMP700 

PFA |.*6 I H*i 1«X»Y*/, PGFP v PMAT,SFT«FRC RF AM07 l 0 

niMFMStnw UW1< MIIMPV ) , 1 r»( NIINMP ,M ♦ X( NIIMMP) , Y ( NIIMMP) .7 I NilMMP) , RFAM0770 

KSFC< MIMOFfM , PGFP (MIIMOFIUQ) ,PMA1 (MIIMMAT ,M t SFT(N|IMF I X f I ? ) HFAMO730 

,WT( MUMMAT ) RFAM07A0 

COMMON / FM /LM I 74 ) , S ( 74 , 7 4 , 7 ) • P ( 74 , 4 , ? ) , S T ( 1 7 • 7 * • 7 ) • ITT 1 7 f 4 « 7 ) « HF AM0750 
XM( 74 I ,G( 74 ,74 I ,FMH 14A > HFAM07M) 

COMMON/ Jl INK /F Ml II. (3 v 4) v T13«*)'I.CI4)'JC(17NXX(3) ( YY(3)«7?(3)fIF(3), RF AM0770 


1 JX( 3 ) ,11(3 I P7HI RF AMO 7 MO 

COMMOM/CONTP/ ICKH) tl.niICK f IC? t 1 *> ) RF A MP 790 

COMMOM/IINITS/IK , iw f TP , 11*17, I3,IH,H»Iin. Ill, 117. M3 RFAMOROO 

f rft * * * * * fc * * * * Jjr J* >ft * * ft * $ * * * # ir t: ft * ft * * :J: * * >1? $ * * * * * * * * <t * £ A * * # * * £ # * 4 $ <: # # J)t * * * * * fc £ £ * p p A M ( I H 1 0 

c CPWTRni. TIM FORMAT IPN R F AMOR? 0 

C ************** **#*^**#* #*«*#****##** fr*4**#*«j{!*« 1 1 «i::>!:**<:*»K**<r«i)c#<t***# J !c S ! t # S {rjc { *RFAMnR30 


Nils? 7 RFAM0R40 

A* Vs 7 RF AMOR 50 

NS=17 RFAMOROO 

Mils? RFAMHR70 

Nfsin rfamorro 

Nf,= 1 RF A MO R9 0 

mso= 7 RFAMPsnn 

TFYsKOpF RF A MOV l f) 

WP ITF( JW,?nn5 ) Ml IMF , KPOF t Ml IMM A T , Ml 1MGFP , Nl IMF X RFAM0Q?0 


**********£*** t/ S#*S #****#$*#**$ *****$$#£$$$ * *****$ '.>£$$ 

C MATERIAL PPPPFRTY CARPS 

c # * A * * £ % * * fc £ * ft <1 * # * it * *i $ * * * ft * * if * * * % * * >:« if * if if * * if * * if. if. $ * ajt * * ft 

wrjtf (Tu.pAon 
00 TO I = 1.M(|MMA1 

PFAOt TR * I OP] ) M,MT(M) » ( PM A.T ( M , ,1 ) , .1= 1.0) 

IF ( pMAl (M f 4 ) . | F.O. ) PMA1 ( W,4 )=PMAT (M, 3 ) 

1F( PM A T(M f 5 ) ,1_F ,n. ) PMAT( M ,5 ) = 0.577* PM ATI M * 3 ) 

'»'R TTF ( I w, pnnp ) M,'-n IM) , i pm a t (m , j ) , .1 = ] , 5 ) 

10 P M A T ( M f 7 )s 0.5*PMAT( N, 1 ) /( I .O+PWA T( W f 7 ) ) 

C * * ti * * * * * # it tf * * * * « * * £ * if * * * * *: fr # »:* * * * fr * * * # * S « * * * * * * # ljr 1> * 

C GFPMFTRTC PROPFPTY CARPS 

f if * * if sy* * * * * * * if * if * if if: * * * * * # ts * * fc # * « * <: * * if * a,’* y; j): * * * $ <-* s!* # * * $ 


«*«#* * ***«#«^C * *:< RF A MOV 30 
RFAM0R40 

««*****# Vt**!:«*«**#RF A M09 50 
RFAMOq^O 
RF A MOV 70 
RFAMORRO 

RFAMORVO 
RFAM1 000 
RF AM 1 O It) 
R F AM 1 0? O 
«##«*#****#* Rp AMI (>3(> 

RFAM1 040 

tf it * ** ««#««# ***$y,cRF A Ml (>S0 


NR TTF ( I u. 7003 ) 

00 ?n JsT ,MI|MGFP 

RFAO (TR,1007) M ,«SFC( M) t ARFA ,( PGFP ( M ,.))..)= ] , R ) 

1 F ( APFA .1. F.O. ) ARFA=1.0 

TF ( KSFC.I N ) .FO.P) KSFC(M) = 1 
TF(KSFCfM)« K| F.3) GO IP | 5 
PGFn( M ) =PPFfM N , P ) • 

PGFP(M. A) =p. 

PGFfl( M f 7 ) =0 , 


HFAM1 OMI 
RFAM1 070 
RF AM 10 HO 
RF AM 1 OPO 
RF AMI 1 00 
MFAMT 110 
RF AMI 170 
RF AM 1 1 ’AO 
R P AM 1 IM) 
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PGPnrw,R)so. 


hpami 150 


PGFn( w t Q ) = n . 

1* UR 1 1 f= r IW,70O4 ) N , K SF f. I N ) * AR F A t I Pl.FH |M,J).J=1.9) 
AA=ARFA**1FX 
AAA=DSnpT<ARFA*AA) 

nn n . 1 = 1 , 

11 PGFP(W,J)=PGFP(|W.,I)/AA 
nn \? . 1=4 t q 

1? PGFfllM, J)=PGFfl IN., I ) /AAA 
30 r.nMj y mi if 

f *#*£$*!*# St £$####«:* «««## * « 

c fi.fmfmt i.pao mhi.tipi.ifrs 

****££*****£<:£ ****** *>>**£*£*£##£>>**:>£$*£*#*:(:* *:(::(:*:$<£#*:{: 
R FAD (1R.100A) ( IFMIII.I I ,.1) t ,1=1 .4 ) , T = 1 .3) 

UR T IF ( 1W.70PM I IFMIII.I 1 f J) t ,l=l ,4 ) , 1 =1 , 3 ) 

G ************************************************** ************* 

c ftxfo-fmo fprt.fs 


RF AMI 1 Ml 
RF AMI 170 
RFAMURO 
RF AMI 190 
RFAM17O0 
RF AMI ? I 0 
RFAM1770 
RF A M 1 7 30 
H F AM 1 7 41) 
AMI? 50 
RF AM 1? Ml 
********HF AM1?70 
RF AM 1? R0 
RFAM1 ?w(> 
********r F AM1 300 
BFAM1 310 


f # ****** ******* ** ****************************** *********************** ***Rp AMI 3? 0 
TFfMJMFy .FO.nj GO TP 5 4 RF AMI 330 

WR1TF ( JU,7010) RF AMI 340 

OP SR J = 1,NI|MFX RFAMJ350 

r f An tlR,innS) n ,( sft ( n ,.i ) ,.i=i , l ? ) RFAM1340 

55 VPT1F(JW«?0n ) N, (SF1 (M,.l| , J=1 , 1?) RF A M l 370 

£*********************************#*********£**********£**********#** ***RFAM13R0 

f FI.FMFMT TAROS RFAM1340 

-£***«* ******** ************** ******* ***** ********************************RE AM 14 00 
SA MR 1 1 F MW, 4000) RF AMI 410 

Ms 1 R F AM 1 47 0 

ino pfaoitr,?poo) ifi. • if « i mat « igfo, inv .frc.lc, jc. inc rfami43o 


1 F f FRT J_F .0. ) F R T = 1 , 
TF 1 1 NT. F 0.0) |Mf>1 
KK«TMr.*( 1FI.-N) 

1 y # 1 ) = I F( 1 )-KK 
1X1 7 ) = IF ( 7 ) — KK 
TXI?)«]F(?> 
nn snn mf|.=m,ifi_ 

OP 170 1=1.3 
11=1X1 I ) 

xxc n = y mi ) 

YY{ I )=Y( IT) 

1 70 77 ( I ) = 7 ( 1 M 


RF AM 1440 
RFAM1 450 

RF AM 1-4 60 
RF AMI 470 
RFAM14R0 
RF AM l 4^0 
PFAM1500 
RFAM1 510 

RF AM 1 57 0 

RFAM1 530 

RF AM l 540 

RF AMI 550 


p ********** ft ft* ft ft* ********************** *********** ***** ** *********** * ?$flRp AM l 5f>0 

f T PMPIIl F FI.FMFM1 MA1RJC FS RF AMI 570 

T ******* *********************** ******* ******* ****** ******* **************HFAM15R0 


PHP=WT ( 1MAT ) 

F =PMAT( TMAT, 1 ) 

C,C, =PMATt TMAT.7) 

A A X=PGFfl( IGFP.l ) 

A AY = PGFP( 1 P.FIl , 7 ) 

AA7 = PGFni mm, 3 ) 

r.AI |. MFURM(F, nrifkHP. AAX ,AAY. AA7 . SFT , Ml IMF I X.MFI. , I -W > 

?F( LRHCK ,MF .0) TAI. I. ttfiFOM 

i it*'T ( inv ) = i iwt I low ) + ni.*»MM*FRr. 

f, ******** ********* ***************************************** 5.-. ********** 

C FP»M Ft FMFMT I Of. ATI PM MATRIX 

f***** ****************** *********** *********************************** 

1 = 1 X 11 ) 

.1= 1X1 ? ) 
np 170 m = 1 ,4 
i.m( m ) = ini t ,w j 


RF AMI 540 
rfamiooo 
R F A M 1 A 1 0 
RFAM1 A70 

RF AMI f*30 
M F A M 1 A 4 1) 
RF AMI 650 
R F AM 1 400 
PF AMI 670 
SRFAM1 4f*0 
RF AMI 69 0 
:#HFAM1 700 
RF AM) 7 10 
RFAM1 770 
RKAM1 730 
RF AMI 740 


6fr‘b 


i mim+ 1? ) = n 
1 . Mf M+ ] n ) -o 
1 7n 1 M(M + M = jr»( J.M) 


MF AM) 750 
MF AM 1 7 fit) 
RF AMI 77 0 


f, * * * A * * * * * * * * * * * * * * * * * * * -s ff ff * * ft * ff * * * $ £ * * * * * * * * £ * * * * * * * # * if * * * if * # $ * * * * * $ * p p /) M ] 7 H ( ) 

r TRANSFORM to MASTFK nFGRFFS of PPFFMOM AMO RFARRANOF MAiKlC.FS MFAMJVMO 

C **#***#****##*#**********#**#*#************##**********$****#******** **PFAM1H00 
Mn=l? KFAM] H 1 0 

call si.awf ( y*Y.7 . in,M t |MNP . I x( ] ), m ?» ♦mo.m^.iruck) hfamih?o 

MM- NP* M 0* Ml I HFAM1H?0 

r.Ai.L R F- A R A N ( 5t « 74 , ?4 , ? , Ml) ,M0, Ml I * MM ) MF AM 1 MAfl 

MM = M<;*Mn*MN p F A M ] H5() 

TALL RF A PAM* ST* ST , 1 7 • ?4 ♦ 7 ,MS ,MI1 ,MM . MN ) MF AM IMAM 

MM = Nn*/,*M\/ HF AMI Min 

CALL rfapam< p, h , ?a , /,,?,wn, a,m\/ v mm) hfamihmo 

r * ■ff ff » ff * * fJ * * .•:< * * * # * * * * * * * * if If! * * * * * * * * * ft * # £ if fc $ * * * * * * * * * * * * * ff * * « * * # * * * * * * * * ff ff H F A M 1 H *4 ( ) 

r pi.af.f fi.fhfnt imform a t I on om iapfs kfamiooo 

f *************************** fc************************'*******************^ AM 19 1 0 

CALL r.Ai.MAM( MO IF «l M,S,M f ST f T7 ,NI I . MW , W S ,M0 , M« . ] nv« 1 FX«FKC 1 MF AM 1<)7C) 

i f ( i.Ror.K . fo.o > r.n to 7a<j kf ami 930 

MM=Mn*NO*Mft P F AM ] <440 

call rfar AM(r;,f;,7/. .74,1 , mm, mo, mo ,mm ) hfam ^50 

Cai.L fi.gsiim( r,wsr, ,Mn,Nr* 1 1 1 ) h f a m 1 9 mi 

760 URHFMH) M! , (PftFP< TftFO, I) t 1=4 ,<>) , I PMAT MMA 1 , I ) , | =3,5 ) ,KSFC ( IftFn ) KFAM] 4 7 0 

writf (p-i,4nni) m f l • I x , 1 m a r , 1 ft f p . 1 nv . frc . lc, .ic . no i f kfam]9ro 

f *** ********************** ************* * ******************************** ftp A M I 040 

C C MFC K Flip LAST F I. F M F M T KFAM7000 

f ************************************************************** V* ******* Pp AM? C * 1 0 
1X{ 1 ) = fy( 11 + INC PFAM7070 

m ? ) = ) X I ? I + T NC KF A M7 030 

500 f. nwT I Ml IF P F A M ? O 4 0 

M=fFI.+ 1 KFAM? 050 

IF( M.LF , Ml IMF ) ftn TP ion K F AM? OM) 

PFTIIWM KF AM? (WO 

1O0I FORMA T( T5.5X ,AF in. O) KF AM? OHO 

inn? FORMAT ( ?t 5,AF1 O.O/AF )n.p ) KF AM? 090 

100P FORMAT! I 5,(4F 10,0/F 1 5,0,5F 1 0,0 ) RFAM7100 

) OOA F OR MAI < 4 F 1 O. 0) KFAM7I10 

POO] FORMAT!// ? 5 M M A f F P 1 A I. PROPFRTY C AR 0.5 // KFAM?1?0 


A LI. OWAKPF AM? 1 30 
KF AM? L 40 
f.PMKF AM? 1 50 
K F AM? I AO 
KF AM? 1 7!) 
PF AM? I HO 


1 P ?M MAIF'MAI. 5PFCIFIC YOI iNft 5 POISSON'S / 

? I. F STRF55F5 / / 

UMOHT MIMMM.OS RAT If 1 1 FMS 1 PM 

/iPRFSSTHM 5MFAR /) 

700? FORMA 1 ( I A , AX . AF 1 ? , 4 ) 

700 ^ FORMAT!// ? 5 1 1 OFl IMF TR | C. PKPPFR TY C A H O 5 / / 

1 A AM PROPFRTY X-SFC1 X-SFf.l / PRIIPFRUFS f»F X-SFC1IPN KF A M? I WO 

?-/ / KF AM?? 00 

3 AAH MIIMRFR Kf’OF AP F A X-AXIS Y-AXfS 

4 / ) 

? 006 FORMAT I I A,4X . 1 5.6F | ? . A , ??M MllMFMTS (l|. I M F R 1 I A / 

1 ?7X *3F 1 ?.A ,?6M Sr-f. I MMMIILI FOR POINT A/ 

? ?7X.3F I ?,6 , ?AH SFCT MOOOI. I Fl'R Pf>|MT h ) 

700S FORMAT! 5?H| THPFF 11 IMFM^I flMAL KF AM Ft.FMFNfS// 

1 ^ ?M MIIMKFP OF M F AM I-lFMFM|S =.15/ 

? 3? n r.nMs rpnr. r ion r.roF =.l r ./ 

3 7?H NIIMRFP OF M A 1 F R I A I S =.15/ 

4 3 ? H MIIMPFR OF OF I'M F IP I C PI'OPFM 1 | FS = « 15/ 

^ 7?n MMMK.rP OF F I XFO-FMO FOR f. F ^ F 1 «; = , ( 5 ) 


/-AX I S KF A M? 7 1 O 
H F AM? 7 ? O 
KFAM773P 
KF A Ft? ? 40 
MF A M? ? 50 
MF Ah7? AO 
KF AM?? 70 
KFAM?? HO 
KF A M? 7 WO 
KFAM? 300 
KFAM? 31 0 


700 A FORMAT!// ?5H FI.FMFM| | fiftll MMI.IIPI.IFRS / ?0 X , ] H A . 1 A X , 1 HK . 1 4 X , l HT. , KF»\M?3?0 


1 14X, |Hf>, /All V— n f M ,/,r|5.A/ AM Y-OI P f 4F I 5 . A/ All 7 - MTP.4FI5.A/ ) 

7010 FORM A T ( 1 Ml n|.l I-) yen l-MI) F‘'pf|.<; |M irif.AI C MOP O | M A 1 I- S 


KFAM? 330 
KFAM? 440 
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1//*PH 1YPF NPOF FHRf.F X HIKf.F Y FPRf.F J 

? 33H MOMFM T X MPMFMT Y MOMFNT 7 

?011 FPP MAI | ]M , !3.6y,lHT ,3X.6F1?.3/IH , , 1 HJ , ? X , 6F ] ? . ?/ ) 

Rnnn format ( 71*» tFin.o , a is * 1 ?1 1 , n ) 
a non format!// ??h Pknr.FssFn fi.fmfmt data // 

1 106H FI.FMFWT / wnnF Mf> S — / / — FI.FMFMT |0 NOS-/ nFSHiN VAR 

? FIXFO Fwn-FORr.F |n FMf) KF» FASF (‘.PDFS KAMI) / 

3 1 07H NIIMRFP I ..I K MAH. OFOMY 11 VAR FRACTION 

4 A A c II I .1 MI m H /) 

400 | FORMAT! J7 f ?X.^15 f M7 t Fl?.4.?X t 4!5,SX,M1» I >X,Ml.lM 

FMn 


RF AM?? 50 
)RFAM?360 
HF AM? 37 0 
RFAM73H0 
RF A M? 3M 0 
K F A M? 400 
RF AM? 4 I Cl 
K F AM? 4? 0 
RF AM? 430 
RF AM? 44() 
RFAM?4bO 


SMRROin INF r.RRT ( AO, A! *A?,A3,/ ) 

p ******************************* **********: 

c COMpllTFS THF I.APKFST RFAI. ROM 7 OF 

C A0 + A1*7 + A?«7**? + A3«7 > !‘ S !‘3 = 0 

C **************************** *************: 
AO=AO/ A3 
A I = A I / A 3 
A?=A?/A3 

0= A i /-a.p_A?**?/Q,n 
R = { A 1 -*A?-3 ,0*A0 ) /6 .0- A?**3/?7 .n 

p=o**?+r**? 

IF f P.LT.O.n] r.fl TO ?00 
p=SORT (P) 

RP=R+P 

TFfRP.I.1.0. ) an in so 

si =RP**o # 33‘*333'* 

an m ao 

30 3 1 =-( -Rp)**0. 333^333 
AO R P = R-P 

1 F( rp.i.t .n. j an T n 7o 

s?=RP**P. 3^33^3? 

on m ro 

70 S?=-(-RP) **0. 33^333 
fin 7 = SI +3?-A?/3 .n 

PFTIIRM 
?on p=-p 

P = SORT f P) 

SRARsSORT! R**?+P**? ) 
rnS3=R /SRAM 
STM3=P/SRAP 

msataam sTM3/r.ns‘-» ) 

U = M/ 3 .0 

r.sr.ns(p) 
s=s t w( w) 

IF f s . ! T.O. ) S = -3 

SAAR=SRAR**0.^3^T?V* 

7=?.0*SRAR‘>C-A?/^.0 

R--SRAR*C-A?/1 .0+ 1 .73P031 *SKAR*S 

TF (R.FT.7) 7 = R 

RFTIIRM 

FWn 


RFAM7460 

******************** *********HFAM7 ^70 

RFAM?4HM 

RFAM74RO 

***************************** REAM? 300 

RF AM? 310 
RF A M? 3? 0 
RF AM? 330 
KF AM? 340 
PFAM? 330 
KF AM? 360 
RF AM? 370 
KFAM73RO 
K F AM? 390 
RFAM?600 
R-F AM? 6 ] O 
RF AM? 6? 0 
R F AM? A 30 
RF AM? 640 
R F AM? 630 
RF AM? 660 
RF AM? 6 70 
RF AM? 6R() 

RF AM? 6M0 
RF A M? 7 00 
KF AM? 7 1 0 
RF AM? 770 
KF AM? 7 30 
KF AM? 740 
R F AM? 730 
KF AM? 760 
HFAM? 770 
KF AM? 7H0 
KF AM? 7^0 
KF AM? H0(* 
RF AM? H10 
KFAM?»?0 
KF AM? R 30 
KF A M? K4 0 
R F AM? R 30 
UFAM7M60 


TS'b 



SllftRnilT ! MF WFMftM ( F ,f,r,»Wl t AAX f AAY, AA7 . SF1 *N|IMFIX* NFL«IW) RFAM?R70 


fftftftftftftftftftftftftftftftftftftftftft ftftftftftftftftftftftftftftft ********* ft ******* ftftftftft*ftftftft#*ftftftftftftHFAM?HRO 

r. CALCIN.ATF fi.fmfni mafricfs RF AM? H90 

C ****************************** ft * * * ft ********** ft ************************* r F A M? 9 0 0 


IMPLlf.lT RFM.*« (A-H.n-;) HF AM? 9 l O 

RFAI.44 SF1 RF AM? 9? 0 

f.nMMOM/FM / I. M( ?4),q|?4,?4),S7(74 l ?4) f PH?4,A),P?|?4 ( 4J l Sn(l?,?4) ,RFAM?9-J0 
1 Sl?( 1 ?,?4 ) , 1T1 1 ] ? ,4 ) , 11?( 1 ?.4 ) ,/Mf pa ) ,0(74,74 J , S( l?, 1 2 > *FM] (? ) HF A M? 940 
COMMON/ JUNK /FM|I1_( 3,4) ,l(3 f 3) ,LC< 4) , JCU71 ,XX(31 *YY(31 ,ZZ( 3) . IF(3) »RF AM?9S0 
1 TX ( 3 ) «llf 4 ) ,\M4 ) ,W (4 ) , R ( 1 7 ) , .HIM (73H ) RFAM79A0 

11 I M F hl S I DM 5 F f ( Ml IMF I X * 1 7 ) * F MM( ?Oftp ) RFAM7970 


FOIIJVAl.FMf.F fSI.FMM) 

nn f t«] , ?n4n 

*? F MM ( ] )=p. 

nn a 1 = 1 . 1 ? 
nn a ,i=).i? 

A M 1 * J ) =0 • 


HF A M? 9H0 
H F AM? 9^0 
HF AM3000 
HFAM-JOlO 
HF AM3f)?0 
RFAM4040 


r ********************* ************************************************** h p a m 3 n 4 o 


c FORM GLOHAI. T'» I.PCAL CPPRI) | M A TF TH AN S T PR M A T 1 «M . 

f ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 

CALL UFCTORt ll'XXII ) tVYM ) 9 /Z( 1 ),XX(7).YY(7) »ZZ(?) ) 
CALL VFC.inn CW.XXM ) . YYM 1*77(1). XX<3),YY(3),?7(3) 1 
HM»nnT( ii ,v i 

T f ( pahs (HH*hh- l .0) . 1.1 .o.ni ) on in 4o 

CALL CRP^SC II .V , W ) 

call r.wnsM vi. (i, w j 


HFAM30S0 
************* R F A M 3 OA 0 
H F AM 30 70 
HF AM30R0 
HF AM 4090 
HF A M3 100 
HF AM 4 1 1 O 
HF AM3 1? 0 


nn 30 1 - 1,3 

1(1*1 > =IM I ) 

T(?,T)sVM) 

*0 7 (3, M=w( T) 

r. ***** ******** ftft ftftftftftftftftft ftftftftftftft ft ft ft ft ft* ft- 7ft ftftft ft ft ftft ft: 
C FJXFn FMP FPRC F "s I r J LOCAL CPPHOIMAIFC 

f. ******************************* **ft****ft*ft*ftftftft*ft: 

nn 7^ m= 1 *4 

M = LC{ M ) 

TF(m.i.f.o) nn m 73 
nn 7 ? f=l,l? 

7? TT7( I,N) = SFTrM, I ) 

73 CHMT | Ml IF 


HF AM 3 1 40 
RF A M3 140 
RFAM4L50 
HFAM31 AO 

ft*ftftftftftftftftftftftftftftftftft#ftftHFAM41 70 
HFAM31H0 

********************* *rf AM4 1 90 
RF A M3? 00 
RF AM3? 10 
RF AM3??0 
R F AM4? 40 
RF A M 3? 40 
RFAM4? ^0 


C *********************************************************************** r F A M 3 7 A 0 
C FI.FMFMT UNIT STTFFMFSS MATRIX 1M LOCAL COPR 0 1 NAIF S S(I,J) HF AM4? 70 


f * ***************** ft ftft ******* ftft ftft*ft*#ftftftftft*ftftft*ft * 
01. =l)( 4 ) 

7 Y= F / f ni. *0|. ) 

COMM Y=7Y*A A Y 
f. PM M7 = 7 Y* A A 7 

sc i ♦ 1 1 =f / m. 

<w?,7) = rnMM7*i?./m 

S( 4 , 3 )= CPMMY41 ? . /ns. 

<;<a,a)= r,r,*AAX/m. 

M r , r ) = commy* 4 .*m 

<: I A , ft j = r. PMM 7 ft /. . ft m 
S( ? , a ) = r.nMM/ft a . 

«; { 4 , R J =-r.PMMYft IS. 

nn in? i =i 

,i = T +a 

in? sc .!,.n=si i , 1 1 

OP 104 1=1,4 
.1= T + A 

104 <;it t.m 


** * ft* * #* ********** * *** hf A M37R0 
R F AM 4? 90 
RF A M3 30(1 
HF AM 44 10 
HFAM33?0 
RF AM 4 4 40 
RF A M3 340 
|(F AM3350 
RF A M3 3 AO 
HF AM 3 3 70 
MF AM33H0 
RF AM 4 4 90 
HF A M3 400 
RF AM 44 1() 
RF AM34?0 
HF AM 44 30 
HF AM4440 
RFAM 44 SO 
HFAM44AM 
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SI s,i i )= S( )*n.s 

B F A M 3 4 7 0 

S1A,1?)= StA,A)*0.5 

MFAM34HO 

SI ?,!?)= SI ?,A> 

M F AM 3 A MO 

S I A , R)=-S(?,A) 

RFAM3500 

SI R, 1 ? )=-S( ? , A ) 

MFAM3510 

M3, 11)= S I 3 , S ) 

MFAM35?(> 

SI S, 0)=-S( 3,5) 

MFAM3S3I1 

SI Q,1 1 ) = - S 1 3 * S ) 

MF A M3 54(1 

on ioa i=?,i? 

MFAM3S50 

K = I — 1 

MFAM3SA0 

nn i o A .1 = 1 ,K 

HFAM3570 

sn ,.i)=sij, i ) 

RFAM35HM 


F**fcrt*$S£*$si!*a>>*!!t*****4*fffc**$#**:»* **#»>*«£*$*:!:**<:#*$**$*:$: fc#>!::*:>$<t$*s{!$$:*s}c«£RFAM 3 590 

C MODIFY s Awn TT? FOR 7FPM FWD-FPHC.FS RFAM3M10 

f. ************* *****#*<^*#******#>fc* $*#** #*S$*$***#**##**$$$*sC:$S***£!{t*3$*#H F AM3 A 1 D 
on 110 T=l,]? MFAM3A?0 

nn i in ,i = i;l? MFAM3A30 

11D Of 1 ,,l 1 * Sf T • J) HFAM3A40 

on \/,n 1 = 1 , 1 ? RFAMA50 

SJ = M1,T) RFAK.3AA0 

1F( jr.n ) ,i.p •o.pp.^i ,Ff>,o.) no 70 1/.0 kfam 3 a 7 o 


no 1 ?* 0 = 1 , 1 ? 

1 ?* R( w)=s( i ,w ) 
no ]?A Ms] ,4 
1 ?A M( M)=TT?( T ,M 1 
nn n«i m= 1 , 1 ? 
cm=s( m,i ) / s 1 
no no n=i , 1 ? 

1 3D S( M f M]=S1 M ,M )-C M *P( M) 
no 1 3R M = 1 ,4 

1 3S TT?( M .M ) =TT?( M f M ) -r.M*vi( M > 
l&n r.OMITMilF 

C' ************* **** ************* ******* ****** ******* 


RFAM36H0 
M F A M 3 A 9 0 
HFAM3700 
RFAM3710 
MF A M37? 0 
MFAM3730 
RF A M3 740 
KFAM3750 
MFAM37A0 
PFAM3770 
MF AM37MO 
*********HFAM3790 


r 0 O ]7 STIFFMFSS AMD FOPCF P Ff.nvFR Y MfllRir.FS DUF 10 STRFTCH]NP RFAMPROO 

p. ******* ****** ******************************************************* #***pFriM 3 R 1() 
nn ?oo 1 = 1 ,3 m f a m 3 R ? 0 

nn ?ni .1 = 1,3 rf AM 3R 3n 

X»1 II •!)*!( 1,,') RFAM3M40 

SKI ,.l )=Y*S(1.1) RFAM3R50 

sill , J+A)=y*Sll .71 RFAM3MA0 

S 1 ( 1 +A,J ) =X*S( 7,1 ) MFAM3H70 

?01 si I | + A,J+A) = X*M7,7) RFAM3HHt) 

STK 1 ,1 )=1( 1 * M*Sll tl ) RFAM3M90 

Y=l( 1 , 1 )*Sf 1 ,7 ) MFAM3900 

STK 1 , 1 + A ) = X RFAM3Q 10 

S11(7 ,1 ) = Y MFAM39?(1 

?00 STK 7 , T + A)=TI1 * T)*St 7,7 ) RFAM3V30 

nn ?n? 1 = 1 ,7. a hfam394o 

nn ?n? .1 = 1 , 7 , a mfam395o 

?0? Sn,.l|r0. RFAM39AM 

P ********************************************************************** *1* p Af-1 -JiJ 70 

f UNIT FOPr.F PFpPVFRY MATRIX MlIF TP MFNMJWf; AM|1 TWIST J WO MFAM39H0 

P * * * ************** * * * * * * * * * * * * * * * ****** * * * * * * ****** * * * * ********* * ******* R F A M 3 9 9 0 
nn 1*0 I. A = 1,10,3 RFAhAnon 

I.P =1. A + ? KFAM4I) } 0 

nn l*P MA=1 ,10,3 MFAM40?0 

MR = Mft-l RFAMAO 30 

nn i so i = t _ a , i n mfamamam 

nn 1 RO ,|M = 1,3 M F AM4OS0 

Jr.lM+Mp MFAM40M) 
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x=n . 

nn 1^1 Ksi,? 

1M X =X +SI l,K+»R)*TIK,.JM) 

1 sn Sl?( F.JJsX 

f ***************************** 


RFAM4070 

p.F AM40R0 

BpAMAOWO 

RFAMA100 

^** ****************************** *******RFAM4ll() 


r r.noR n i nai f l r amsfprma t f pm pf iinti RFNDINf; amp twisting STIFFNESS HFAMA170 

r ;************* ************* ****************** ***** ********** ************ rf AM A 1 30 

PP 1A0 |. A =1.10, 3 RFAMA1A0 

I.Psl.A-1 P F A M A 1 5 0 

IIP ]AP MAr 1,10,3 P.F A MAI AO 

MR=MA + ? PFAMA170 

HP ] AP II. = 1 ,3 MFAMA1H0 

1 s T I. + 1. R p.F AMA l 90 

np 1A0 JbMA.MH BFAMA70U 

X = H. BFAMA? 10 

HP ] A 1 K=l t ? KFAMA770 

l A1 X=y+T( K . II. )#ST?( K + l P,.l ) BFAMA730 

1 AO S?fI,J)=X BFAMA7A0 

r, ********************* ************************************************* *RFAMA? SO 
r TRANSFORMATION OF F1.FMFNT I .PAH VFC1PH 01 IF IP FJXFO FMD FPRCFS PFAMA7A0 

r, tp oi. or a i r.n< iRniN a. if s of ana? 70 

(-******************************#**************#****** *******************RF A MA7R0 
nn IAS |.A*l t 10 f 3 RFAMA7W0 

I. P = I. A — 1 HFAMA300 

nn ) AS 1 1. = 1,3 PF AMA 3 1 () 

1 = 1 l.+I.R RFAMA370 

nn IAS N = 1 ,A R FAN A 3 30 

X=n. HF A MA 3A() 

nn 1 A7 K =1 ,3 PFAMA350 

IA? X=X-T( K * I L )*T 1 ? I KM.H,N ) PFAMA3A0 

1 A3 P7 ( I ,M)sX PFAMA370 

f *********************************************************** ************Rf: A M^HO 

C FI.FMFW7 MASS MATRIX PF AM A 3 WO 

C ********************************************************************* **pp AMA400 
X =WT*m./? # PFAMAAIO 

nn inn m=i,? pfamaa70 

XM( M ) =X RFAMAA30 

XM f M+ 3 ) = P . PFAMAAAO 

XM ( M + R ) = O , RFAMAASO 

1 RP XMfM+AJ=X PFAMAAAO 

f****** ***************************************************************** RPAMA470 

C . rOMPllTF PR A V I T V I.MAMMC, < PP I M T I.OAHS ONLY 1 PFAM4AH0 

C ************************************** * ******************************** r p A M A A9 [ ) 
pn lop 1=1,3 PF A MA S 00 

nn two .1 = 1 , a pfamasio 

PM I t.O=Pll I ,.l )+FMH|_ ( I , ,1 )*XM | I I PFAMA570 

\QD PI ( T+A, J) = P1I T+A ,.U+FMIII.( I ,.I)*XM( I+AI R F AM A S 30 

PFTIIPM MFAMASAO 

AO WRTTFI IM.Ann?) MFI p F AM AS 50 

STOP PFAMASAO 

Ann? format (omokfam np , is, ?aii k mpof pm rfam x-axis pfamas7o 

• 7AH FXFr.1‘1 ION TFRM|MATFn ) PFAMASWO 

FMn PF AM AS WO 


Q. 54 



SMRRnm INF S1.AVF * X , Y , 7 . 1 D f NIIMNM,M \ ,M J * Mn , N S . I. ROCK ) RFAM4600 

£#*************************************** **$$$********************<:S****RFAM4M0 

c PFRFHRNS SLAVF ...MASTFR 0| SPI. ACFMFN1 1R ANSFPRMAT J PN HFAM4^?0 

C ( for woofs r.nwwFrTFi) in rfam fi.fmfn r s pmlyi rfam 463 o 

f *********************************************************************** RF/V M4640 
|MPI. ir.IT RF { A-H, P-7) RF AM4650 

R F A I. * 4 X,Y,7 RFAM4f-*0 

f, OMM DM / F M / 1. M ( 74 ) , S ( ?4 • 74 , 7 > , P I l?f?4.?).TTI%) , XM( ?4 ) , RFAM4670 

1 n(?4.?4) ,FM| (|4M RFAM46R0 

H I M F M S inw X( NIJMNP ) f Y( N1IMMP ) ,7 ( NIIMMP ) f J 01 WllMNp, fc) RRAM4*90 

F**** ****************************************************************** *RRAM4 700 

C HFTFRMIMF R F CM 1 1 K F H TR ANSI. A T 1 PM HFftRFFS OF FR FFDPM RFAM4710 

C* ********************************************************************** RFAM47P0 
nn S4 MF = 1 « 1 ? ff> RFAM4730 

MPOsMT RFAM4740 

TF (MF.F0.7) Mnn = M.l RFAM4750 


nn 30 k = i ,3 
T=K+MF-1 

IF ii . mi I ) .of. n ) r;n tp 30 
m=-LM( T > 

I MU ) = t n ( M « K ) 

Ml = MO+- 1 
Mp=Mn+? 

I F{ K-? ) 3S.4S.SS 
m =-( Yl wnni-Y I M ) ) 
n? = 7(Mnn»-7(M» 

I M ( M 1 ) = f 0 f M v A ) 

1_M{ M? J = I n( M ,S ) 

no m fo 

af ni =-( 7 { wnn ) — 7 ( m l j 
07 = x(wnn)-ycM) 

i.mc Ml ) s l n( m f /* | 

1.M1M7 )ain(M t M 

r,n tp fo 

ff m=-<x<Mnn»-x(Mi 1 

n? = Y(Mnn)-Y(M) 

| Ml Ml JsjniM.F ) 
l_M( M7 ) = T D( M.4 ) 

Fn cpmumiif 

f, ********************************** ******: 

c IP AMSFPRMAT TPM . . , ARP AYS I NC.R F A SF (M 

************************ 
no pn jj=i ,? 
np f,n n =1 ,mii 
SM« It n . T J)=SC 1 , 1 1 . T,«)*ni 
M *?•?!. U) = M T,TT.U)*n? 

S M IfMl *KM=S1M1 .11 *1.1) 

S( TI ,W7, ! .1 ) =S( M7 « T ! 1 1 .1 ) 

siMi |W] ,r J»asc 1, 1 • U)*m*n] 

S( mi ,m? , 1,1)8^11,1. i.u*ni*07 
S I M 7 , M ] , TJ) = S |M] ,M7f 1 .1 ) 

S( N7tN7 v U) = M ! ♦ 1 tU)*ri7*n? 

HP 70 I T= 1 .MS 
ST( T T .Ml .U)=ST( |M 
70 FI n 1 «N7t U)sSl 11 1 1 I 
RO r. DMT I Ml IF 

X M ( M ! ) = XM( I )*ni*|11 
XM( M?) = XM( 1 ) *1)7*117 
I Fii.wur.K . fo.o \ r.n in 
no qo 11=1 ,MI1 


^ ***** * 


A,n 


****: 
SWF 
********* 


. T.1|*IU 
t l.i )*r»7 


<U 


RF AM47M) 
RFAM4770 
RF AM47K0 
RFAM4790 
RF A M4HOO 
RFAM4R 10 
RF AM4R70 
RFAM4R30 
RF AM4R40 
RFAM4R50 
RFAM4R60 
RFAM4R70 
RFAM4RH0 
RFAM4R90 
RF AM4400 
RFAM4910 
BF AM4970 
RFAM4930 
RFAM4940 
RFAM49S0 
. RFAM49M) 
RFAM4970 
RFAM49R0 

:************** ***********RFAM4990 

RF AMFOOO 

^*** ********************* *Rf=AMR 010 

RFAMF07 0 
RF AM SO 30 

RF AMROAC* 
RFAMF050 
RFAMFO^n 
RF AMFO 70 
RFAMFORO 
R F AMS090 
RFAMF 1 00 
RFAMFl 10 
RFAMF170 
RFAMFl 30 
RF A MR 140 
RFAMFl SO 
RF AMF 1 60 
RFAMSi 70 

RF AN F 1 RO 
RFAMSI 90 
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rWMi , T n = r,( u 1 1 )*m 

r,( m? , i| I =G( 1,H )*n? 

r, (T I , n 1 hPfNi.m 
pn r,< IT ,M? ) =r,( n?, H ) 
r;rwi ,mi )=r,u , I )*ni *ni 
r.{ wi t M? ) =n{ i , n *ni*n? 

)=r,{ Ml ,N?1 

G{ M? ,M? ) =r,( 1 , T )*M?*n? 

PI M0=Mn+7 
ro cnMJiMUF 

f ************************* *********** 

C SFT ROTATIONS 

(■ft***************************** 

nn S4 .1 = 1 ,3 
K = NF + ,1 + ? 

I fc i. m c k ) .gf .n> r,n rn S4 

M = -LM(K ) 

I. M ( K ) = TW M , J + 3 ) 

*,/. r.nwiiNiiF 
RF TURN 
FMn 


HF A MS 7 00 
RF AMS? 10 
RF AMS??<> 
RF AMS? 30' 
RF A MS? 40 
RF AMS? SO 
HFAMS7A0 
BF AMS? 70 
HF AMS?MO 
HFAMS7 PO 

******************************** (4 PAMS3 00 

BFAMS310 

********************************** *#*****K FAM c;3;>() 

BFAMS330 
HF AMS340 
HF AMS 3 SO 
RFAMS3A0 
HFAMS370 
HFAMS.3H0 
RFAMS3P0 
BF A MS 40(1 


SOBRninjMF RGFOM HF AMS4 1 () 

C ******* ****** ************* ********************* ********* ***************rf A MS4? 0 

f r,FPMF7P. IT. S7IFFNFSS MATRIX OF BFAM FI.FMFMT HF AMS 430 

r, ************************************************ ***********************i4PAMS44o 
IMPLICIT RFAI.*P (A-H.0-7) R F A MS 4 50 

r.nMM0M/FM/1.M( ?4 ) , SS( 1 1 S? ) ? PUP? ) , S T( S7A ) , TT < PA) , XM| ?4) ,G( ?4,?4) , BFAMS4A0 
1 Sn?,]?),FMH(?) HF AMS 470 

CnMMnM/ t |l|MK /FMlll.1 3,4) t T{ 3,3) ,I.C( 4 ) , JC ( 1 ? ) , X (3),Y < 3 ) , 7 . U ) , I F ( 3 ) , BF AM54H0 


TX (? ) ,U( ?) ,m. ,f. ( 3, 3 ) ,R ( 1? ) , .HIM ( ?3A ) 

BFAMS490 

fX 

it 

c 

c 

c 

RFAMSSOO 

nn in ,1 = 1 , 1 ? 

BFAMSS10 

S( T , . 1 ) -n . 

RFAMSS?0 

ni=i.?/m 

HF A MS S30 

0?=0.133333334-nL 

R F A M S S 4 () 

n?=o. 033^3 333 * 01 . 

RF AMSS50 

c 

ii 

-3 

C 

RF AMSS AO 

si ?,?)=ni 

HF A MSS 70 

S( 3,3 )=01 

HFAMSSHO 

s (s ,s j =n? 

HFAMSSPO 

S( a,ai=o? 

hfamsaoo 

nn ii j=?,a 

RF AMSA10 

S( j+a,i+A)=s( 1 ,n 

RFAMSA70 

S f ? , A ) = 04 

R F A M S A 3 0 

M ?,» )=-m 

RFAMSA40 

sf?,1?)=04 

RF AhSASO 

S< s ,s ) =-n* 

RF AMS A AO 

s ( ?,o)B_nj 

BFAMSA70 

S( ^ , 1 1 >=-n4 

RF AMS A BO 

S(S t p)=04 

HF A MS AP(> 

S( S f 1 1 > = -n3 

BFAM S 70(1 

S ( A, R ) =-04 

BFAMS7 1 0 

M A, 1 ? ) =-03 

RF Am 577 0 

S(P,1?)=-04 

BF AMS 730 

S( P,1 1 ) = 04 

HFAMS740 
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nn ?o j=?,i? 

T1 =1-1 

nn ?o jsi * i i 

70 S( T ,.l )=S( .1*1) 

C MnniFY S<I*.I) FOR 7FRP FMn FPRCFS 


RFAM5750 
R F AM57 AO 
RFAM5770 
BFAM57R0 

RFAM5H00 



nn i*n ]=j ,1? 

RFAM5P70 


TF IJCf II.I.F.OI (;P TP 140 

RF AM5R30 


ST=S( 1*1) 

pfamsrao 


IFfSf.FP.O.) GO IP 140 

RFAM5R50 


TF( G( I . T ) .FO.O. ) GP 7 P 140 

RFAM5RA0 


nn m=i,i? 

RFAM5H70 

1 3R 

R( w» = S( I *M) 

rfamshho 


nn ] 30 Mr 1 , 1 ? 

RFAM5R90 


nn i3o w = i , i ? 

RFAM5900 

i *o 

SfM f M) = SlM.M)-IG<M*l )*R (M)+G(M, I )*P «M) )/G(l *1 ) 

RFAM5910 

1 

+ G ( M , 1 ) # G { N * I ) * 5 1 / 1 G ( I . I ) * G l I , 1 ) ) 

R F A l*i 5 9 ? 0 


nn i4] mb 1,1 7 

RFAM5930 


S( l,M)=n. 

HFAfom40 

1 M 

s iM, i j=n. 

RFAM5950 

1 4n 

r.nMT i mi if 

RF AM 59 AP 

f**«* #**»>**# ##*#*** #*$#*** *****<:* Ijs*#**#:*******##******#**********:* 

*C£££*RF AM5970 

r. 

7 RAMS FORM TO GI.PRA1. CPPROIMAlFS 

P FAN 59 BO 

f ;*$$##*** ****$$ ##*#*«*$* *****$$#*#$ $$$### $*£4$$* £££*£ **££ *££**£ **£ 

£*S££*RFAM5990 


nn isn 1=1 ,74 

RFAMAOOO 


nn i^o j=i,?4 

RFAMA01 0 

IIP 

r.( t . .i ) =o . 

RFAMA070 


nn ?in ] l = i ,<. 

PFAMM)30 


11 =t I 1-1 1*3 

RFAMA040 


nn 7S0 ,M=l , 1 I 

RFAMA050 


,n=i .i.i-i i*i 

RF AMAH AO 


nn ?ao T=l*? 

RFAMA070 


nn 7 AO K = 1 , 3 

RFAMAOflO 


H = P. 

PF AMA090 


nn ?7o ,i = i,3 

RFAMA100 

770 

M=M+S( 1 1 + 1* Jl+J)*7 U*K ) 

RFAMA 1 10 

?A0 

ii 

RFAMA] 70 


nn ?ro 1=1,3 

PF A MAI 30 


nn 7 ro k = i ,3 

RFAMA 1 40 


H=n . 

MFAMA150 


nn ?qo ,»=i ,3 

PF AMA1 AO 

?qo 

M = n + T( , I |*Ct ,* , K ) 

RFAMA 170 

?nn 

G( M + T ,.11+x )=H 

RFAMM MO 

?*n 

r.PMl f M 1 1 F 

RFAMA ] 91) 


nn 3oo 1=1,1? 

RFAMA7MU 


nn ?nn ,1= ] , i 

RF AM*? 1 0 

3on 

G< .1,1 )=G( 1 ,.! ) 

RFAMA? 7 0 


RF7MRW 

RFAMA730 


FMI) 

RFAMA? 40 
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SliRRHIJl IMF PRFAM ( APl.n, ANEW, I.PAll, MIIMDV ) RFAM6750 

(-ft ft* ft ********* ************* ******* ft ********* ft ft ********* ft ******** ft #**#ftft*HFAM6?60 

c PFSjr.M OF RFAM FI.FMFMIS HFAM6X70 

P,**ft****#***ft*##ftftftftft##ftftft* ******************************************** *RF AM ft? HO 

rnMMnw/jMNK/ it«lh«l*sik(? 71 ♦ i pvar , i fx.frc, arfa, xinfri , mfam679o 

1 7FF{ M . TFMSfCHMp , <;MF A R , K SFC . SFCMPf>( 1 7 ) • JUN \ C 3 U ) RFAMMOO 

njMFA'Sinw Ani.n (miimpv ) , anfm (miimmv ) , lpap i nijmov i rf ama31o 

nFi.TA=n.nni rfama 3? o 

kmax=a HFAM6330 

UMAXsO, RFAMA340 

AA=ARFA HFAMf*3«jO 

IFHFX.FO.?) AA = SORT( AA#*3 ) RFAM6360 

JFfKSFC.PT. 1 ) PP TO ?0 HFAM637H 

C * ****** ************************************* ******** ******************* R£ AM63KO 

f SF T IIP SFf.TinN MPIMILMS ARRAY SFr.MPDU) FPR ALL RFAM6390 

C FOUR STRFSS POINTS MF X-SFCTIPN AT NPDF 1 RFAM6400 

f ft** ft ft ft * ft ft ft* ft 44$* ft ft ft ft $ ft ft ft* ftft ft »■; ftft ftft ftft ft ftft ft * ft ft ftft 3>t ftft ft ft ft ft ftft ft ftft* ftftftft Sjt ft ft ft ftftftft ft ft R F A M 6 4 1 0 

nn in 1 = 1,3 rfama470 

SFCMPHI I )=7FF ( I )*AA RFAM6430 

SFCMPOt 1+3 )=SFOnn( 1 ) RRAMA440 

SFC MOD 1 I + M=-7FF(I+3)*AA RFAM6450 

10 SFCMPOI F+9)=SFf.Mpn( !+A) RFAM6460 

^FPMPni 7) sr-.SFCMPDt 7 ) RFAM6470 

SFCMPPI l 1 ) =-SFCMnn( 1 \ ) RFAM64R0 

PP TP ?5 RFAM6490 

f,*****#***********************************************#***********:******^ 

C <;p T IIP SFCMPPIT) FPP 7-SFCTIPM PR TURF RFAM6510 

F*ftftftftftft*ftftft*ftft*ftftft*ftft*ftft*ftftftftftftftftftftftftftftft*ftftftftftftftftftftftft*ftftftftftftftft*ftftftftftftft*RFAM6570 

70 DO 1R 1=1,3 RFAM6530 

SFCMPIK I ) = 7FF( I )*AA RFAM6540 

SFCMOnf 1 + 3 ) = - SFfMPI) ( 1 ) RFAM6S50 

S F C M OP ( I+4) = 7FF{ I + 3 ) * A A RF AMA560 

15 SFCMPPl I + °)=-SFCMniM 1+6 ) RFAM6S70 

SFCMPnt 7 ) = -SFCMPn( 7 1 RFAM65R0 

SFr.MPn ( 5 ) =~SFCMnnf 4 ) BFAM6590 

IF ( K SFC ,NF . 3 ) pp Tfi 75 RFAM6600 

SFf.Mpn ( M ) =0. RFAM6610 

SFr.Mpni 1 1 ) =P # RR AM6A70 

C * ft ft ft ft ft ft * ft * ftftftft * # ft a{? <1 ft ft if s|: ft ft t if * £ # * * # * ❖ * * * # * * # * * $ # # * * if * * * # * * »!« 4 * $ * * # * * * $ $ $ R p A 6 3 0 

C PRTAIM AXIAL FPPf.F X AMO MPMFM T S XX,YY,77. R FAM6A40 

C FIRST FOR MpDF I, 1 HFN FPR NlUiF % » RFAM6650 

P**************** ****** **#4- ***«#**#*«*4« <!***«*#**#«#❖ 4 *<:****«#«>>*#*#**j>:!S«RF A Mfv66(J 

ys^fPIT) RFAM667P 

nn 30 M= 1 , 7 ,A RFAM66R0 

IF (M.Fn # 1) PH TP RFAM6690 

nn 71 1 = 1,17 RFAM#.7O0 

71 qFf.Mfin ( T ) =-SFP MPIK I ) RFAM6710 

7 A XX=StP(N+3) RF AM 6770 

Y Y = S I O ( M+4 ) RFAM6730 

7 7 = S I P( M + 5 ) R F AM A 74n 

r*** * * * ** * * * * ** * * Is if * # * ft ft * ft ** * * ft ft ft ft ft ft ft ft * ft ft ft ft * ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft * ft ft ft ft ft ft ft ft * ft ft ft RF A M6 7 50 


-wnniFY mpmfm rs fpp mm 


r ft ft * ft ft ft * ft * ft ft ft * ft # ft * * ft * ft * ft »•« ft * ft ft * ft # ft ft ft * ft ft * * * * ft * * >:« ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft # ft ft. ft ft ft ft ft k P A M 6 7 7 m 


IF (KSFC.MF. 3 ) CP TP An 
YY=S0P1 ( YYSYY+7 7*77 ) 

7 7 = 0 . 

An <;AyiAI=X/APFA 


RF AM67HH 
KFAMA790 
RFAM6RP0 
MF A M A ft 1 n 

***** *********************** ft ft ft ft K F A M6H7 O 


f r.PMpllTF S1PFSSFS A 1 FfMIR S1PF«S PMJM1S MN X-CFfllPM 


;: ft ft ft ft ft ********** ft ft 


s ft ft ft * ft * * H F A M A H A 0 


8S’& 



nn ?* i = i tin. 3 
sshfarsO . 

TF I sfcmppi i ) .MF.n. j sshfar=xx /sfcmoii { n 
SRFNr)=n. 

if i SFcwnni i + 1 ) ,mf . n. ) sRFNi>=YY/sFr.Mnn 1 1 +i ) 

IF ( SFCMnm 1+7 ) .NF . 0 . ) S»FMI) = SPFMIU77 /SFCMPIK I + ?) 

sini = <; a XT AI.+^pfmo 

sstar=tfms 

IF (STm.LT.n,) S^TAW--r.0Mp 


PFAMAR50 

BFAMARAO 

RFAM6R70 

RFAMARRO 

RF AMARUO 

PF AM A min 
PFAMAV] 11 
PFAMAQ70 

pfamavho 


C ********* ****************************************** ********************HPA MAP 40 

f APPI.Y RFMFSir.M FOHAI TON'S HFAMAV50 

C *************** *********** ***** *#*#*#***# ****** ***** ***** ******* ****** *Rp AMA9A0 
TFUFX.Fn.?) 00 TP R1 PFAM6V70 

R=SORT( TSTPT/SSTAR >**?+{ SSHFAft /SHFAR )**?) RFAMA9R0 

r.n in p ? bfamav9o 

R1 TTFST=l PFAM70()(1 

1 F S 1 = I 5SHFAP/SHFAR )**?-?. 0*APS(SAXIA|_*SRFNP)/SS1 Aft#*? RF AM701 0 

0 # * #*#* * * *# ******* * ************** s?s ** * ******** * * * * * * ** * * * * * * * * * $ # * ***** * £ R F A M 7 0 7 0 

C fHFr.K TF SHFAR STWFSS PPMIMA1FS RFAM7030 

f, *************************************************************** ******#*nFAM7()40 


IF f TFM.OT.fi. ) I1FU = 7 
KPlIMTsO 
RP = ] . 
p = n. 

r. = - s a y t ai./sstar 
RF r,n Tfl (1,7) , ITFST 
1 A A= ( S$MFAR/SHFAK/KK**3 ) *#7 
TF ( AA ,0T , 1 . ) A A = O . 

a = <;pri ( i .o-aa ) 

n=-SPFMO/SST AR 

no in 7o 

? A = 1 • 


PFAM705P 
R F AM 70 A(1 
MFAM7070 
BFAM70 R() 
RFAM7PV0 
RFAM71 00 
RFAM71 1 0 
PFAM7170 
RFAM7130 
PFAM7140 
RFAM71 *>() 
PFAM71 AT) 


n = -’r( SR FMn/^STAM )**?+( SSHFAP/5H FAR ) **? + 7 .0*$AX I Af.*SBFM()/ ( SSlAR$#?*RFAM7170 
l 5»nRT( RR ) ) ) P F AM 7 1 fl() 

7o r.Ai.i. r.RRT (n.r , p, a ,r ) pfam71wo 

f ******************************************************* **************** rFAM77O0 

r CHFf.K FPP r.PMVFPRFMr.F RF AM77 ) (I 

********************************************************************* **RFAM77/ , () 
TF (R .1.1 .n.nnnnnu c.n to ro rfam7730 

nR=ARS( (P-RRJ/R) PFAM7740 

IF (DR.I.T-PFI. 1A.PR .KPHMl . FO.kmax ) 00 IM RO HFAM7750 

KPIIMT sKOIIW T + 1 P F AM 7? AO 

PRsP PFAM7770 

OP TO RS PFAM77HO 

RO IF (IlFST.FO.n R = R*R PFAM77PO 

R7 IF (R.GT.RMAX) RM AX =R RFAM73O0 

■3R r.OMTTMUF PFAM7 310 

30 CPMUMIIF PFAM7370 

C *************************************************************** ******* *rf AM7330 

C RFC nun MFI-I MFSinW VAIMAm.F AMI) f.PR R F SPOMn 1 NO I.OAI) COMO I TIPM KFAM7440 

p************ *************************************************** ****p***f<F AM73S0 
AAsRM AX* Afl|. P( TOVAR ) RFAM73A0 

I F f AA.M. ANFWC IllVAP ) ) OP TO AO PFAM7370 

AMFU( IpVAR)=AA PFAM73RO 

I.OAOUnVAR )=l PFAM73VI) 

AO f.OMT T Ml IF RFAM7A00 

R F TURN PFAM7410 

FOP RF AM 7470 
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S I IRR ni IT IMF l>!. AMF( A ,MTOT ) 

C PI. AMP STRFSS FLFMFMJS 

f ;**#***************************** * * * * * * * * * * 

niMFMSIMM A( MlflT ) ,ST«I.AH( S ) 


PL 

!:****************************p| 

PI. 

************************** ***p| 

PL 

fOMMOM /FI. PAR / MPAM ( 1 A ) , Ml IMMP ♦ MU/. NO , A'F I. T YP , N \ ♦ N ? • M? , N4 , MS , Mil 1 , N F (.1 PI 
] , Ml IMF I. t MIJMO\/ .Ml .M? . M ^ , | |_ ,| H.MFOP. , MHI.fif.K PL 

L PM MOM / FM /Ml I • MM , N S « M 0 ,FM1(S544) Pi 

fOMMUM/.M IMK / I. T tl.H • S(’( 70) «S1G( 7) • I 11V* 1 F X ♦ FRC » AR F A , X I NFR \ , PL 


|o,nn,iii,i l?, 
-K ,^M|-,I,?MK-L/ 


m 


1 OFSIMFC^?^) 

rOMMOM/HNI TV IK • 1 'I • 1 R « ! t « I 7 
PAT A si Rl. AB/1HCFN, 3HI.- I . ?H.t 
Ml IMF =N PARC 7 ) 

KfinFsMPAR (5) 

)F( MPAR( 1 ) .FQ.niKM in son 

Mf»s N* +NI IMMP 

MOMMA T=M PARC 3 ) 

MMMir.aMPAR ( 4 ) 
on TO (1*7,3) ,KPI)F 

f *********************************************************************** p| 

C MM in TRFC T tONAl.L Y VI FFFMFO PAMFl. pi. 

f *********************************************************************** p| 

1 MllMOFn=NPARt 7) PL 

M7 = MiS+NMMMAl P| 

M« = M74-MI|MM A T PI. 

MQ=MP + NUM0FO*^ PI 

M] f) = MQ+MIIMMA T#MIIM tr.*« PL 

MMsM) O-MTPT PI 

TFCMM.OT.O) CAI.I F PRPR (MM) PI. 

r. ALL PI MAX) C AC Ml ) . A { Ml ) , A ( M7 ) . A (M3 ) * A (MA ) , A CMS ) , A CM* ) , A ( M7 ) . A ( N« ) , PI 
1 A( MQ ) .UIIMOV , Ml IMMP , W| IMM A 1 , Ml |M TC * KPI1F , Ml IMF , MMMOFfl ) PL 

PFTIIRM p| 

f *********************************************************************** p|. 

C ISniRPPir PI. AMF MFMRPAMF P| 

c ********** ******* ****************************************************** p^ 

7 M7oM6+niimma7 PI 

MR = M7 + MI IMM A T PL 

M tis MH + MI IMM A 1 "Ml IM 1 T. * 7 PI 

MM=MU-M T PT PL 

TFCMM.07.O) r. A u FRRPRfMM) PI 

CALL PI.M A X 7( Af Ml ) • A ( M 1 ) , A ( M 7 I , A ( M 3 ) , A ( M4 1 , A ( MS ) « A ( NA ) t AC M7) » A ( M H ) t pi. 
1 MIIMnW, MIIMMP.MIIMMAI «NI|Mir. v KPrfF t MMMF ) PI 

RFTIIRM PL 

f *********************************************************************** p| 

C PRnx/isinw for SPFrjAi. mfmrkamf fi.fmfmt pi. 

r*** *********************************************************** *********{>( 

3 call NPFIFM c NRAR C 1) «KPHF . IM ) PL 

PFTIIRM PI 

Soft WR1TF CT u .? n nR) Kf’liF PI. 

HP POP MM s 1 , Ml IMF PI 

CA'I.L STRSCC A(M1 ) , A{ Ml ) r A( M3) ,MFn, MIIMI1V ,|.L . I.p .0) PL 

UR1TF | lH f 70PS ) MM.ARFA PI 


AMOOOO 
ANOOIO 
AM0070 
AN0030 
AM004I) 
AN0050 
AMdn^n 
AM0P70 
A M() 1 1 RO 
AMnnqp 
AN010C) 
AM01 U> 
AMO 1 70 
A MO 1 30 
AMO] 4(] 
AMOl 50 
AMO l Ml 
AMO] 70 
AMOl HO 
AM0100 
AMO? 00 

am 07 in 

AMO? 7 0 
AM0730 
AMO? 40 
ANO? 50 
AMO? Ml 
AMO? 70 
AMO? HO 
AMO? Q 0 
AM0300 
AMP 3] 0 
AMO 37 0 
AM03H0 
AMO 340 
A MO 350 
AN(»3f*0 
A MO 370 
A MO 3 HO 
A MO 390 
AM0400 
AMC1410 
A M04 ? 0 
AM0430 
AM0440 
AMO450 
A M04 Mi 
AM0470 
AM 04 «0 

AM04M0 

A MO 5 no 
AMOS ] O 
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IFlM5.Fn.ii i;n in non 
nn yon i = 1 t.i.h 

r.AIJ. STPSr.f A ( Ml ) , A( Ml ) t A( M3 ) , NFO • Ml )M|»V » 1. 1. • I. R « 1 ) 

TFfl.,m.M) URI1F1 TW.7P07) 

1 T = n 

nn 6PP KKsi.M5 v 9 
IF(KK.GT.l) VIR I TFC 1 9, 7007 ) 
nn r?p t = i * ^ 


pi. amospo 

PI AN0530 
pi. AM0540 
PI AM0550 
PL AMUSMI 
PI AN0570 
PI. AM05R0 

pi a mo son 


spn sir,( i )ssr,( kk-i+( ) 

n*n+i 


PL ANOMIC) 
PI AM 06 l n 


MP = 1 

TFUi.r-i. n r,n in sin 

MpaA 

AMOsIlF? |NF( 1 ) 

1 FI AMfi.MF .0, | on rn 540 
nn sso 1 = 1,3 
*so s TG( 1+3 } =S T G{ i ) 
on 7n *3o 

SAn AMRsAMf*/ 57.7957 7«5 

S|=STN( AM G) 

rn=cn«:( amg ) 
sr=si*r.n 
ST=S!*ST 
r.n=rn*rn 


PL AMM670 
PI AM0630 
PL AMM640 

PI AM0650 
PL AN0660 
pi AM0670 
PL AM06M() 
p| AM 060(1 
PL AMO 700 
PI A WO 7 ] 0 
PL Amo 7? o 
PI AM0730 
PL AN0740 
PI A MO 7 SO 


Y1=SIG( l )«m + SIG( 7) *5 I 
X7=?.n*MG( *)*sc 
S|G(4)=X1+X? 

5ir,(s) = xi-x? 

STG( 6) = ( STG( 71-StM 1 ) )*SC+S]Gt 3)*(CP-Si ) 

5*0 on TP (4,5,6) . KODF 


£***ft*ftft***ftftftft* ft *********************** ft ****** ft *************** ft ******* ft p|_ 

r nFsipw pf STiFFFNFn mfmrramf fi.fmfnj pi 

C ******* ft* ****** * * ************ * ft* * *********** * ** s> ************** ft ******** pi_ 

a t f ( n.r.i. n go m 6 no pi 

CALL npl.AN] ( A{ Ml ) , A{ M?) ,A( M3) ,NIIMIW ) PL 

r,n in 6nn PI 

f# ********************************************************************** pi^ 

r npsir.M pf isnTRnPir. mfmrramf fi.fmfni pi 

(| **************************************** ft ft* ******* ft**************** ****p|_ 

5 CAM. nP|.AN?( A( Ml ) , A( M7 ) ,A(MR) ,MHMOV ) Pi 

r,n Tn 6no pl 

c ************** **** ******* ****** * ******** * ft*** ****** ***** ************* ** p| 
c PROVISION FOR IIP S TliW PF SPFCTAI. MFMRRAMF F L FMFN 7 PL 

f ************** ******************************************* ************** p| 


AMO? 60 
A M 0 7 7 0 
AM07H0 
AM0790 
AMOMOO 
AMOK in 
AM0R70 
AMORHO 
AMOR 40 
AMOR 50 
AN0R6O 
AMOM70 
AMUR H 0 
AM0R90 
AM 09 00 
AN 09 l 0 
AM0970 
A N 0 9 3 0 
AN0940 
AM095O 


6 r.nwT]M|JF 

600 WRHF (|M,?nno) l.,SlKt.AK( 1 1 ) , I Sift I I ) • 1 = 1 ,MP) 

700 f.nMT 1 Ml IF 
roo cpm7t m|, f 

r, ******* ****** ********** ********************* ********** 

PFTIIRN 

?oof fopma U l x . T6 *i ; l a .t, ) 


PL AM096O 
PI AM09Y0 
pl. AM09R0 
PI AMC1990 
***** p|_ AM 1 000 
PI AMI 01 0 
PL Am 1 07 0 


700R FPRMAH//4SH ANALYSIS PF MFMHPAWF FI.FMFM1S. CONFIRM CPIIF = . f 1 7 / / P| AM 1 030 
11 1 7H SMFF 1 I.MAO / MFMMPAWF MipfFS IN PLAMl04(l 

7i.nr.Ai. coords — // — mfmrramf pppofs jm maifrjai. coords-/ / pi ami 050 

311 7H FI.F MFN f IHTf.KNFSS CONI) 1. OF. A (TOM MXX MY Y PL AMI (160 

4 NX Y NH M?7 Ml 7 /) PI AMI 07(1 

7009 FPPMAT( 1 H+ ,?0y , ]S ,6X , A3,4X *6F 1 3.4 J pl. AM | MHO 

7007 FPRMA 7 ( / ) PIAMIMWO 


FMO 


PL AMI 1 00 
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SI IRPPH1 TWF PI. AW( I1FTA ) Ml 

C ; # * * ****** # ****** $ $ * # £ * $ 5* * * if ****!?#***>>#**** * * $ * $ * ##»#$$ * * ******** 3 » * 5? * * pl_ 

r S7HFSS /S1«M M MFI M1PN MAIRIX Ml 

f * * * * *f * # * ❖ # *S * * * * * * « ##***#*## **## *###$*#£#***$$$:«* ^jJcfctfjJcjfrj}:*:*!!** s>$ * pl_ 


IMPi.Trn rfai sp lA-ii.n-7) 
r.nMMnw/.niMK / if( a ) • i x c « ) .tmuu a , 4 ) , 


Ml 

ll( 3,3) , X X { 4 I « Y Y ( 4 ) *77 (A) , T PM ( 4 ) .ML 


1 Al P ( 3 ) f 7 1 1 f 3 ) , PKFSS,PPFTtMS,NSn!3l ,1 ( 3 , 3 ) , |>n ( 3 « 3 ) ..IUMH^IM Ml 

IF ( hfta .Fn.n.ni on rn son ML 

ANOsRFl A/S7.?o*s77«S Ml 

SS=nS ?M( AMR) ML 

r,o=nrns f amr) mi 

r.p=r.n*r.n ml 

sp=ss*ss mi 

sr.=ss*r.n ml 

f ft**# ****«£*# ****<:* <p $$«$«#$£**$£ 44 * ******** ***** ******************** Ml 

r. s f t n rni? s jr;( n )=n*^ir.i r; ) ml 

£ ************ ********o;=** ************* ****** ****************** ** ********* p| 


AM 1 n O 
AM 1 IPO 
AM ) ] 30 
AMI 1 40 
AMI 1 SO 
AMI) 40 
AM 1 1 70 
AM] 1 MO 
AM \ ISO 

Am ] p no 

AM) ? J O 
AM1PP0 
AM J P 30 
A M l P 4 O 
AM IPSO 
AMIPRO 
AM] P70 


T ( 1 « 1 ) a C ? 

111,7)='? 

1( 1 *3 )=P .*SC 

1 1 ? .1 )=S? 

T( ? * ? ) =r. ? 

i i ?,*)=-?.* *c. 

K 3 ,i )=-sr. 
i r ■> • p > ss sr 
Tf 3,3 )=r.p-sp 
on ?nn 1=:),^ 
nn 3on .i = i .3 
smm=o. 

on pnn M = i ,3 

PRO SHMsSHH+T ( M , I) *|i( M , .1 ) 

300 nni T • > ) = siim 
on 340 i = ] , ^ 
nn 340 , 1 * 1,3 

SIIMsO, 

nn 330 m=] 

snM = siiM+nni \ .m )*i ( m,,i> 

of 1 ) = snm 

“340 n{ ,1 , f ) = SIIM 
A] =A!.P( 1 ) 

A ? = Al PIP) 

Al.Pf 1 )=r.?*Al ■*■ SP * A ? 

A| P ( p ) = S?*A 1 +r.p*Ap 
Al.Pf 3 )=P ,n*Sf>( A] - A?) 
foo r ai l pnsTMvmj 
nn 470 1 = 1,3 
11 T ( f )=n. 
nn *70 m = i ,3 

470 711(f) = 71J(l )+0( l ,M)*A1.P(M) 
PPTIIPM 


ML A M 1 p mo 
M l AM1PS0 
ML AM 1 .300 
Ml AMI 3)0 
ML AM13P0 
Ml AM 1 330 
ML AMI 34(1 
Ml AM 1 350 
ML AMI 3 40 
Ml AM] 3 70 
ML AMI 3 HO 
Ml AM} 3'4() 
ML AM l 400 
PI AMI 410 
ML AM14P0 
PI AM X 430 
PL AM 1440 
Ml AM) 450 
ML Aw ] A 40 
Ml AMI 470 
ML AM ] 480 
Ml AMI 4S0 
ML AMI 400 
Ml AMI S 1 0 
ML AMI SPO 
Ml AMI 530 
ML AMI 5M1 
Ml AM] 440 
ML AM] S 40 
PI AMI 470 
ML AM] 5*0 
Ml AM 1540 
PL ami Min 


Fwn 


Ml A M J 6] O 



SHBpnirfTMF 0 IIAH( Rwn * THICK ) PI. 

f if * <« £ * # # <s * <r * JJt * * * £ * * * g * sjs a!* * * * * * * # sji -fy fc $ * * # ajr £ t- £ * # £ $ # * * £ ❖ $ £ * Jr £ * if # <: * <c 4 * 3 £ $ # £ Jjc $ # p| 
C FPPM Fl.FMFNT M A J R ) C F S PL 

C * £ * * * if £ * <i aft * * *• * ** £ * * $ .■*« Sj! # $ * * * & <r * * % If it 0 * $ £ $ * * $ & £ # H? $ £ <t $ # # sjt £ >Jt # * * $ <s * # * £ *!* if * if <c £ p{ 

IMPLICIT RFAl.sfefl ( A-H,n-7 I PL 

rOMMOM/FM/LMI 7 ?) ♦ <iM ?♦ 1 ?I »P? ) ♦ P?U?.4 I , XMI17 I *S 1 { , I? ) . PI 

1 TT( 1SM,r 1 H)?,l?)^?llM?l,r^M?,1?),HHll?,l?| f FMU 1700) PL 

r.nMMnM/.l|INK/lF<M'IX(/.) v FMIII.f A v M,n(*,3), X I4 ),y I 4), 7 |4),1M 14), pi 
1 AI.PI ^ « TT H 3) t PKFSS # PFFT ,NS,msi;i \ ) , p.R { 4 ) , 71 1 4 ) , PP l ( 1 ? ) t PL 

? HI A ) ,V(A ) ,Wf 4 ) ,H( 6 ) ,MP 16) ,h; If.) ,FAf.,f;(4 ) ,h (4 ) , .MINI 13? ) PI 

r.nMMPM/FI PAW / M P A R ( ] 4 ) , ] Fl.PI ]4) PL 

rpMMnM/rnMTR/lCi { i 3 ) • i . kutk * ic? n f ) pi 

n IMF MS HIM S M ? ) * S f f ( •> ) i I FT t 5 ) , I v F C T( 4 ) ♦ ,) V F f, T ( 4 ) t F MM ( 10 * 8 ) PL 

FnnfWAi fmcF ( s , F mm ) PI 

DATA SS/-n, 577360 ? 6 c> 1 Rq 63 ,n .67 7 V> 0 ? 64 1 8963 / PL 

hata SSf/n. ,-i . , ) . ,n. ,o. /, lll/n.,n.,n.,-i,. 1 ./ Pi 

DATA TVFCT/ 4 , 7,1 , 3 /,.|VFCT/l , I,?, 4 / PL 

on to 1 = 1,1 of « pi 

1 n fmm( T )=n , pi. 

nn ?n 1 = 1 , 1 ? pi 

?n PP 1 ( nan. PI. 

C f OMpi 1 1 F Fl.FMFNT AXFS SYSTFM AMO f.MRMFH COOPnlNATFS PL 

PL 
PI 
PI. 
PI 
pi. 
PI 
PL 
PI 
PL 
PI 
PI. 
PI 
PI. 

p| 

MASS MATRIX PL 

s*«**#fr*****#p| 

PI. 


X( ? ) , Y( ? ) , 7 I ? ) > 
XI4),YI4),7(4)) 


:«»**** ****** 

THFWMAI. LOAO VFr.TOR 




AMO 


CALL \'F0TOR( i>« XII )*Y( 1 )«7( 1 ) . 

CAI.I. vr-CTOP IF, XII ) ,Y1 1 ) , 7 M ) 

CALI, CROSS ( H ,F ,u ) 

call CRnss(w,n,v) 

call vfc rniM c,x n ) ,yi i j ,7( i),xn),Ym,7n)) 

BRIlho.n 
7 7f 1 ) =n.n 
P P I 7 ) a 1 1 ( A ) 

771 7 )=n.n 

rp r?»=r-(4 )*nnTif;,n) 

7 7(3 )=r,( 4 )*nnT( n.v) 
on ( 4) = f ( 4 )*nnT if, id 
7 7i 4 )aF1 4 )#ni>T( F ,w ) 

c FORM IJN J T SIfFFNFSS MATRIX 

r****ft***#****#4*£#****£#$***$**S£**£*** 

on son n = i f ? 

nn foo = PI 

CALL Formr( ss( 1 1 ) ,ss( .1.1) ,RR) - PL 

FlP=HI1)«lMm+Hr?|*lM(?)+Hn)*TM(?)-i-H(/i)«lM(&)-KFFT PI 

nn Ann .) = ],17 PL 

RlaRR(] ,.i )*FAC kl 

R?=RR( ? , .| ) *F AC PL 

R?»RR l?« t l )*FAC PI 

ni =n( i , i )*m+n( i v ?i*R7+n( i )*r-< PL 

n?=ni7, i)*Ri+ni?,p)*»7+n(7,R)*HR pi 

n^=r)( f i )4 ri +n< )*R7+n( i , ti*rs pi. 

ppi ( j ) = ppi f j) +ftp* i ni *ai.p( 1 ) + n?*Ai.p t? ) + o:^*ai.p( ?) ) i^i 

nn 4nn t =.i , i ? PL 

si t,j) = s< i,«>)+rrii ,n*m+Mn(?.i i i«m pi 

Ann St .1, 1 ) = S( I , .1 ) PL 

nn /.^r i = i,4 pi 

4S0 XM( T )sXM( T )+FAC4TMlCK*H( 1 ) I’L 

I F ( I.RMCK , FO. n ) f;n 7 f> mio PI 

r FPPM MM n r.FHMFIKIC ^lJFFMFSS MAIRIH-S Pi 


AM If.? 0 
AM 1 630 
AM 1640 
AM]6^n 
AM If, AO 
AMI 670 
AM) 6K0 
AM 1 6m > 
AMI 700 
AMI 710 
AM) 770 
AM) 730 

AM) 740 
AMI 750 

AN) 760 
AM) 770 
AM 17 RO 

AM) 7P0 

am] « nn 
AMI Ml (1 

AM) W70 
AM 1 R 30 
AM] R40 
AM 1 R 50 

AM 1 RAO 

AM l 870 

Am\HRO 

AM) R90 
AM 1900 
A M 1 0 1 n 

AN) 9?n 
AM l 930 
AMI 940 
AM) 950 
AM] 9 60 
AM) 970 
AM) 980 
AM] 940 

AN?ono 
AM? 0 1 0 

AM?n?n 
AM? 030 
AM? 04 O 
AM? 050 
AN? 060 
AM? 070 
AN? (I MO 
AM? 04 0 
AN? 1 00 
AM? 1 Ul 
AM? i?n 
AM? ] 30 
AN? 1 40 
AM? 1 60 
AM? ) 60 
AM? 1 70 
AM? ) «(l 
AM? 1 40 
AM?? 0(1 
AM?? 1 0 
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C »J: tf :|I * *c $ # if i’. tf t: * * * # * ft * if * fc # * aj* if # * # # >}* * * * :* ## $ £ # $ $ $ if * # C if <s •-.* # * # £ $ * ?;* * * ? £ * £ :Je * jJc j|: p|_ 


nn rso 7 = 7,4 
nn rso .i = i ,4 . 

T4 = 1 + 4 
.14 = . 1 + 4 
TP= I + P 
, 1 ft = J + P 

XX=HR< 1 )*HR( J )*FAC 
YY =H 7 . ( I ) *H7 ( 
y Y = HR f I )*H7 f J 1-FAf. 

YX = H7( I ) *HR( .1 1 *FAC 
G1 ( T * J)=H1 IT .J )+YY 
01 ( ! ,.I4 ) =G1 1 T « .14 ) -YX 
f-t (. 14 . 1 ) = ni ( I « ,14 ) 

r,n T4,.|4 )=r,i ( 14 f j/- j+xx 

PKlP.JflJaRl f I«* JR1 + XX 
r,?( i h ,.ip ) =o?( t« , .ip ) + yy 
PRO 0 3 f I H , JR ) = 03 ( 1 p . JR > +XY + YX 

5nn r.nwT jmiif 

T F f I. Ri IT.K . FO, n ) f,n in qoo 
nn qsn 1 =1 ,P 

no cmp ,i= i , » 

01 ( T ,.1 ) = 01 ( T ..I)*. ?5 
05n n?( 7 ,,i )=r.l | 7 , ,l ) 

call pi. a wr . t ( ni ,uM,ii'V ,w ) 

TAI.I. Pl.AMCT fO?,RR,ll,\/ f V ) 
CALL Pl.AMCT ( (13 ,KB,II,W ,U ) 


f <! * * * * if if * 3*c * f- t> * tf * * tf * tf * * * * tf * tf * »:» * tf tf * * * * tf tf tf * tf * * tf tf tf tf tf tf tf tf tf tf tf tf tf tf tf tf tf tf * tf tf >> * * tf $ tf tf tf p| 

c form stress niSPi. at.fmpmt matrix pi. 

r tf tf * tf * * * * *** 4 tftftftftftftftftftftftftftftftftftftftftftftftftftftftftftf tf tf* tf * # * tftftftftftftftftftftftftf * tf # * tf tf tf * * p| 

qno 1 . 1 . =MS/3 pl. 

nn s-ap l- 1*l.i pi 

CALL FDRMm SSM L) *TTT(I. ) «HH) PL 

FTP=M(n*TI W! m+Ml?)*TM|?J+H{?)*7Mm + H(4}>KlM(4)-RFFT PI 

nn 5 3 n f 7 = i , 3 pi. 

T = T ! + ■»* ( I. — 1 ) p| 

T Tf T *4 ) = -T T 1 ( 1 1 ) *F TP PL 

nn 5^n ,i=i t i? pi 

nn R3n k =1 ,3 pi. 

R-ap S7( T,.»)=S7( 1 t ,l)+n( 1 r ,K )*RRIK . ,i ) PI 

C tf fttftf tf tftf fttftftftftf tftftftftftftftf tf tftftf tftftftf tftftf tftf tf fttftftftftf tftf tftf tftftf tftftftf tftftftftftftftftftf ***tf**tf**p|. 

f Fl.lMfMATF FX7RA OFCPFFS OF FRFFOOM p| 

Otftftftftffttftftftf&tftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftfXctftftftftftftftftftftftfXttftftftftftftftftftftftftftfpl 

IF i t x ( ■* ) .pri. ix (a) ) r,n tp 54o pi 

TF|NPARfA).NP,ni r,n to sao pl 

fin ssn mm = i ,4 Pl 

I. = 1 ? - MM PL 

K=l. + 1 PI 

C = PPl( K ) /SI K ,k I PL 

nn ,i= i ,mq pi 

T T ( .1 * 4 ) = T T ( .1 . 4 ) + r a <; t ( . I * K J PL 

nn s*;n i = i ,i. PI 

C = ^( I .K ) /M K ,k J PL 

ppi ( I ) = ppi f I) -r.-ppi ( k ) pi 

nn rap .1 = 1 ,m s pi. 

sap ( j, i j = ^i ( j, i j-r.*^ r i .i * k i pi 

nn R*^ n J-l.ti pl 

^ f 1 , J ) = M 1** t i | - C* S ( K , J ) PI 

C *■ ^ tf *• tf £■ t< * if >:• if if A * Jl: tt if if t'- tf X» * X' * A * X: if A if if tf * A if A if if A * * if A * tf A if A * if <f A A A # A * A A A A A * A A A A A A A pl. 

r PPTATF ^TPFS^-flT *p|. ACFMFM1 7 u A m«;fiii»w a T T pm If 1 0 1 W F ^IPFSSFS p| 


AM?? ?0 
AM?? 30 
AM? ? 4(1 
AM??5H 
AM?? M) 
AM? ? 7 (* 
AN?? HO 

am??wo 
AM? 3 cm 
AN? ?1 0 
AM? 3X0 
AM? 330 
AM? 440 
AM? 350 
AM? 340 
AM? 370 
AM? 3 RO 
AM? ?Qfl 
AM? 4 00 
AM? 4 10 
AM?4?0 
AM? 430 
AM? 440 
AM? 450 
AM? 440 
AM? 47 0 
AM? 4 RO 

AM? 4^ 0 
AM? 400 
AM? SI 0 
AM? S?0 
AM? 5 3(1 
AM? 540 
AM? 5 50 
AM? 540 
AM? 570 
AM? 5H0 
AM? 5P0 
AM? 400 

AM? 41 0 
A N? 4? 0 
AM? 430 
AN? 440 
A M? 4 5 0 
AM? 4 40 
A M? 47 0 
AM? 4 MO 
AM7 4<J() 
AM? 700 
A M? 7 1 0 
AM? 7? 0 
AM? 7 30 
AM? 740 
AM? 750 
AM? 740 

AM? 770 
AM? 7 HO 
AM? 700 
AM? HOfl 
AM? ft l O 
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C NORMAL AMO PARAI.I.FI. TP SJDFS - SIMILARITY RfUATF INITIAL S1RFSSFS PLAM?H?0 

f*********** ******* *.*****#******«*«•!> ****************************:**** ****p| AM? H 30 


SAP MSFT=U.-1 

IF ( NS FT * I. F , 
nn 7?0 l. = 1 ,msf I 
I Vs | VFf. HI.) 

.»V=.|VFC T( l_ ) 

r.M.i. 

S?=G( 1 )*r,( i ) 
r? = r,( 7 )*ni ? ) 

sr.=-r,i 1 ) #ni ? ) 

T l=*#l. 4 l 

T? = M*1 
T ?= U +? 

T1 =TT( 11 .4 ) 

T7 = TT I 17,4 ) 

T3 = TT( 13 .4 ) 

T4=7.n*sr*T3 
TT( 11 , 4 |=r. 7 *Tl+S 7 *T 7 +lA 
111 1 7 * 4 ) = S?*‘T 1 +C?*T ?-1 4 
TT( 13 .4 ) = SP.*( l?-T1>+( T.7-S? )*T3 
no 7 io j=i *p 
pi =s n n ,.n 

R?=STI I 7 • ,1 ) 

R3=ST( M ,.») 

R4 = ?.p*sr.*M 3 
S T( n ,.l l=r.7*ni +S?#R?+R4 
ST ( 17* ,» ) = S?*m +f?*R?-M4 
71 n ST( I3*.I)=SC*( R7-RU+I C?-S?)*R3 
770 r.nwT | Ml IF 

73fl 1 FC MPAR| 5) .MF .7 I OP TP ISO 

f * ******* * * * * ****** ************ ****** 

c CAI.CIM.ATF PRFSSI'RF I.PAOS ON 1 


PL AN? M4n 
PI AM?H*>n 
PL AM? H 40 
PI AM7H70 
PL AM? HHO 
PI AM? W 0 
PL AN? 900 
pi am? y i n 

PL AM7M70 
PI AN7P/U) 
PL AM? <#4(> 
pi AM?^f>n 
PL AM? 4 Ml 
PI AM?<J7(1 
PL AN70R0 
PI AM? W() 
PL AM 3000 
PI AN3010 
PL AN 30? 0 
PI AN30H0 
PL AN3040 
PI ANR050 
PL AN30MI 
PI AM3070 
PL AMJORO 
PI AM3O40 
PL AN3] 00 
PI AN 3 1 10 
PL AM3170 

***************************** p|'AN313(J 
IN OLORAI. CnOkOlMAIFS PLAN31.40 

******************* p| AM 3 1 30 
PL AN 31#>0 
PI AN 3 170 
PL AM 31 HO 
PI AN 31 'in 
PLAM37O0 

PI A M 3? 1 O 
****pl_ AN3? 70 
PI AN. 3? 30 
******PL A M3? 40 
PI AN 3? 50 
PL A M 37*40 
PI A M3? 70 
PL A M3? HO 
PI AM 3?M0 
PL A M3 300 
PI AN331 0 
PL AM.3370 
PI AN 3 330 
PL AM 3 340 
PI AM33SO 
PL AM 3 3 AO 

PI A m 3 3 7 o 


P I on TP 730 


vFcirw h;«rk( 1 vj 9 7 7 1 1 v) .n.nnn.RK I ,iv ) , 7 7 1 ,»v ) ,o.r*nn ) 


****** 

HALF 

p* ************************** ************************* 

XX=O.S*PPFSS*ttR( ? ) 

nn ipf t=i,3 

II ={ 1-1 1*4+1 

nn ihs i_ = 1 , a 

P?U1 ,1. )=XX*V| I ) * F M 1 1 1_ ( I. , ? ) 
ins P?m + J ,!.) = P?I 11,1 | 

p***************** ************************************************** 

c CnnRniNATF TP AMSFPRM A T 1 PM 

p_ **************************************************************** * 

l^o nn i qp i=i*3 
nn i an k =1 ,4 

KK=4*( | -1 )+K 
nn i pa .i = i,3 
nn ] no i. = 1 , 4 

1. 1. =4 * ( J-l )+l. 

inn RR(KK ,M. )=IH 1 )*( S(K * 1. JvlU.M + SlK ,l.+4 )*V| J ) ) + 

1 V( l )#( S(K+ 4 « 0 *||( D + Sl K + 4 ,L + 4 )#\/(.|) ) 

VI =ll( T )*PP 1 IK J+V < n*PPl ( K + 4 ) 
nn inn i. = i , /« 

inn PI { KK ,1. ) = xi t-FMIH (1,1) 

nn ias i=i ,17 
nn los ,i=i f i? 


SI T ,.| )=RH| 1 ,.l) 
1 os S(.l, I ) = <!f 1,.I) 

nn ? in K = i ,NS 
nn ?nn i = 1,4 


PL AM33H0 
PI AM3W(t 
PI. AM.4400 
PI AM3410 
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nn ?nn 

.1 = 1 ,1 

pi. AM 34?<i 


l.l.sA*f J 

-1 )+L 

PI am;^4^o 

7 nn 

PPKU.) 

= ST( K ,1. )*M( .ll + sn K,L + 4 )*V( .1) 

PL AN.444n 


nn 7 1 p 

j= i » l ? 

PI AW'1450 

710 

ST( K , .1 ) 

=ppi ( j) 

PL AM 3440 


nn 


PI AN3470 


XX = XM ( T )* RHP 

PL AM 34 HO 


nn 770 

t.= 1 * A 

PI A M 3 AP ( 1 


PH! 

l.)=PK 1 ,1. ) +XX*FMMI ( 1. ,3 ) 

PL AM.iSHO 


PI ( 1+4, 

1 )bP1 ( T+A ,1. } + XX * FMI l|. { |. • 4 ) 

PI AM^IO 

??n 

PI ( T + fl, 

L) = Pl( l + «,l 1+XX*FMIIL( l.tS > 

PL AM-JS70 


nn aoo 

1. = 1 . A 

PI A M H *» 3 n 


nn Ann 

1=1 *n<; 

PL AM3540 

Ann 

TT 1 I « 1. ) 

= t 1 ( 1 » a )*fmiii. n. , 1 1 

PI AN^SD 


PCTMPM 


PL AM 3 5 AO 


fmp 


PI AW ^ A 70 



nn pnn .1 = ) 

1.1. =4*1 ,'-1 | + l. 

?00 PPl t 1.1. ) = S rt K , 1 . )*IU .1 ) + ST( K, I. + 4 )*VI J ) 
nn pin ,1=1,1? 

?in st(k,.m=pph j) 

nn ppo 1=1,4 

XX=XM( I ) *RHn 

nn ppn i. = l * ^ 

PHI ,i. ) = PH ] ,i. »+XX*FMii|.( |. ,3| 

PI f J + 4.1 ) = P 1 ( 1+4,1. ) + X X&FMI l|. ( t. , 4 ) 

??n PHi + «.UsPH l + «*i. 1+XX*FMHU L .si 
nn for i.= i .4 
nn Ann i =i ,ns 

Ann n(f,i. 1=T1(1, 4 I *fmi ii. n. . 1 ) 
pPfllPM 

FMn 


PL AM4*P(.i 
PI AM3430 
PL AM 344(1 
PI AM3450 
PI. AM 34 AO 
PI AM 3470 
PI. AM. 34 H() 
PI AN34W0 
PL AMiSOO 
PI AM?S10 
PL AN3S70 
PI AM3530 
PL AM3A40 
PI AM3^50 
PL AN35A0 
PI AN3S70 


Q. 67 



Simfinin ] NF Pl.AMfT(^«P illfV,W) PI 

C COORD T NAT F TRANSFORM*! 1 PN DF STTFFMFSS MA1RIX FOR MFMRRANF FLFMFNTPI 

£**1^*** *#«*****£«*#* *«***$************ *****##*$£** ****£**<«*:<:*:}‘***’( : **#* PL 


IMPLICIT R F A I. * B { A-M t P-7 ) 

niMFMSIPM SI 1 ? . 1 ? ) • 8 ( 1 ? . 1 ? I « III 4 ) , V( 4 ) ,' 4 < 4 ) 
nn 190 i=i,3 
nn i qo k = l ,4 

KK=4*f 1-1 )+K 

nn ion .1 = 1,3 
nn i qo ».= i ,4 
l_l_=4*C ,|-l )+f. 

190 R(KK,I.I. ) = ll( ?)*I S(K ,U*MM) + S«K «l+4)*V(J))+ 


V( 1 )*( S( K + 4, U*ll( ,1 )+S( K+4,|_+4 |*VI,I) )+W( 1 )*S(K + 8,l. + 8 ) *W { ,1 ) PL 


nn iof 1=1,1? 
nn 196 j = i , i ? 
S U * J I = R ( I , .» 1 
S( .1.1 )=S( 1 ».l> 
R F TUP W 
FMO 


AM 3580 
AN 3690 
AN3600 
AM3M0 
AN36?0 
AN 3630 
AN3640 
AN3650 
AM3660 
AN3670 
AN 3680 
AM3iS90 
AM 3700 
A M 3 7 1 0 
AM 3 7? 0 
A N 3 7 3 0 
AM3740 
AN3750 
AN3760 
AM3770 


SlIRRnmiMF PPSIMVIAI PI AN3780 

C PI AN 3800 

C************^****** ****$***£*#*#£**£* ***£$*$*#*#$4$**$**$$$*#$ s*^*****?!. AN 3 RIO 



IMPLICIT RFAl.*« (A-H.O-?) 

PI AN 38 ? 0 


niMFMSIPM A( 3 , 3 ) 

PL A N 3 8 30 


nn ?nn n= i , ? 

PI AN 3 840 


D=A( M,N i 

PL AN 3 R 50 


on ion ,t= i , 3 

PI AM 3860 

100 

a( M,,n=-A{M,.n/n 

PL AM 38 70 


nn isn 1 = 1,3 

PI AN 3 H 80 


1F(M-n 110,180,110 

PI. AM 3890 

1 1 n 

nn 140 . 1 = 1 ,? 

PI AM 3900 


IF(N-.I) 170 . 140.170 

PL AM 3910 

1 ?o 

A { 1 , . 1 ) = A 1 T , , 1 ) + A (I . M ) * A 1 N . , 1 ) 

PI AN 39? 0 

l ah 

r.nwT i mi if 

PL AM 3930 

1 80 

A f I , M ) = A ( | ,M) /n 

PI AN ?940 


A ( M,M)=l . 0/0 

PL AM 3950 

?nn 

CPMT I Ml IF 

PI AM 396 0 


PFTIIRM 

PL AM 39 70 


FMn 

PI AN 3980 


89 "b 


Sf IRRCII I T 1 NF FnRMR(S,T,A) 


PL AN39S0 




C FORM SHAPF -FUNCTION OFRIVAT1VFS AND STR A9N-0 I SP». ACFMFNT MATRIX PL AN AO 10 

IMPLICIT RI;A1.*R ( A-H, P-7 ) PLAN40 30 


niMFMSIOM Rl]?,]?l,f KM,, MI 6) 

COHMON/JIIMK/ IF( A ) , | X ( 4) V FMII(.( 4 ,5 ) ,f)( 3,3) .X (4),Y I4) t 7. (4),TMP{4) 
1 AI_P(?) ,TTIf 3) ,PRFSS,RFFT ,NS,NSGI3 KRR f4 ) , 7Z ( 4 ) , PP 1 ( 1 ? ) , 

? IK 4) ,V( 4 ) ,W( 4 ) ,H( ft ) ,HR((S ) ,hZ( M ,X.|,HS(M ,HT( M , JIINf 1?4) 

DATA M /I ,7.3 *4,0, 10/,, IJ/S, A ,7.8, 11 , 17/ 

SM=1 ,0-S 
SP=1 .n+S 
TM=1 .n-T 
1P=t.o+T 
H( 1 ) =SM*TM*.75 
HI 7 ) = SP-TM*.?5 
HI 3)=SP*TP*.?5 
HI A )=SM*TP#.75 
HI 5)=( i .n-s*S I 
H I M = 1 1 • 0— T * T ) 


PI AN4040 
, PL AN4050 
PI AN4060 
PL AN4070 
pi ANAimn 
PL AN4090 
PI AN4 1 00 
PL AN41 10 
PI AN4170 
PL AN41 30 
PI AN 4 1 40 
PL A M4 1 50 
PI AN41A0 
PI. AN41 70 
PI AN41R0 


HSf 1 )=-TM«.?S 
HSI ?)=-HS I 1 ) 
HS(3)=TP*.75 
MM 4 ) = -HS ( 3 I 
HM 5 >=-?.*$ 
MSI M=0.0 
HTI 1 |=-SM* ,?5 
HT{ ?)=-SP*.?S 
HTI 3 ) = -HTI ? \ 


PL AN4190 
PI AN4700 
PL AN47 10 
PI AN4770 
PL AN4?30 
PI AN4740 
PL AN4? 50 
PI. AN47 f>0 
PL AN47 70 


NT ( 4 ) =-HT ( 1 ) 

HT( 5 ) =0.0 
HT f A)=-?.*T 

P7T = HT( 3 >*Z7( 3 ) +HT I 4 )*7Z(4) 

P7S=HSf ?)*7ZI3)+HSI4)*?Z 14) 

PRS = HS( 7)*RR(?)+HSl 3>*RR( 3)+HS( 4)*RR<4) 

PRT=HT I 7 I *RR I 7 I+HTI3 )*RR( 3I+H1 I4)*rr 14 ) 

1 F | OARS I 7 7.1 3 J-ZZI 4) ).LE.l .OF-10) P7S=0. 

IFIOARS IRRI7I-RRI3) ) .IF. 1 •0F-10.AND.DAHSI RR |4) J .LF . 1 .OF-IO ) 

X,|=PRS*P7T“PRT*PZS 

PSR=P71/X,i 

PTR = -P7.S 7X.) 

PS7 = -PR1/X,I 
PTZ = PRS/X.| 
nn ino M,f- 

HRl I )=P$R*HSI I )+PTR*HT( I ) 
ion H7I! )=PS7 *hsc I )+PT7*HT (I) 

Q # $ ■$ *i ft $ ije # <c # ## ijt ## # # $ £ $ £ *r j? Si ## if if if « & if if - if jf <t sit « if if s* ### S i 


P| AM47R0 
PL AN4790 
PL AN4300 
PL AN4310 
PI AN4370 
PL AN4330 
PI AN4340 
PL AN4350 
PR T =0. PI AN43^0 
PL AN4370 
PI AN43R0 
PL AN43Q0 
PI AN 4400 
PL AN44] 0 
PI AN4470 
PL AM4430 
pi AN4440 
$s:«.*3#pl_ AN4450 


C FnRM STRAIN niSPLACFMFNl MATRIX 

C ***$****#*$## $$$****:*:*** *****5****$******* 

no ?00 K=],6 
micki 

,I = «I»T ( K ) 

Rl 1 , I |=HR( K) 

RI7,,I)=H7 IK J 
Rl 3 , I) =H7( K ) 

700 R|3 f ,l)=HR IK) 

RFTIJRN 

FMn 


PI AN4460 

:*$*$#$****£*$****$**;<:«$*$*:}: p|_ AN44 70 

p| A N44R 0 
PL AM4490 
PI AN 4 500 
PL A M 4 4 ) 0 
PI AN457 0 
PL AM45 30 
p| AN4540 
PL AN4550 
PI AM45M) 
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SURRPin IMF pl.NAXl fliwl. III* X, Y, 7 * T*MTC.W1 , PGFP, PM A 1 , NIIMOV , Nl IMNP , PI 

1 WIIMMAT ,WUM TC .KIIPF ,MI IMF , Ml IMfiFP ) PI. 

f************** ************************************************** ****** * p| 

c STTFFFMFO MFMRRAWF FI.FMFMT PI. 

£********************** **£******************************************** **|>| 
IMPLICIT RFAI.*R (A-H,n-Z) PL 

RFAI.*4 HW1 f V , Y,7 f T.Pf;Fp,WT,PMAl , PF T ,F4, FS , F5, F7 , SRC* PRC ,GHC t FRC PI 
0 IMF MS |flM MVJT( NIIMnv 1 « I n( Ml IMNP ,5 ) f X ( NIIMMP } , Y( MU MNP ) , l ( NIIMNP) , PL 

I 1 (MIIMMP) , MIC ( MUMMAT ) .W1 (WIIMMAl ) ,PPFniNIIMMAT , S ) , PI 

7 PMATf MIIMTf. .«,MUMMAT > PL 

CPMMPN/FM/LM( l?),Sll?.]?),P]n?i4),P?n? ( M.XM(12),5T|]S f l?), PI 

1 TT[ 1 S f 4 ) ,f,| l?, 17.3 ) t RH( )?.)?) ,FM1( 1700) PL 

CflMMUM/JlIMK/l F (4 ). fx (4 ) ,FMUI. ( 4,5 > ,f. (3,3 > * XX (4 ), YY <4 ) t Z7. (4 ), IMP ( 4 ) t P| 
1 AL P( 3 ) » TT !( 3) ,PRFSS.«FFr,MS,MSr,( 3 ) * X 1 * X? , X3 , X4 , Y ] . Y? , Y3 1 Y4 , FF ( 7 ) ♦ PL 
? .HIM] ( 7 04 ) PI. 

cnMMnM/cnMTR/ici( i3),LRUCK,ir.?( 15) PL 

r.PMPPN/IWMS/FRt !W, IP,n,I?,!3,IP,ly.nn,I11.Il?,M3 PI 

C ***************** ****************************************************** PL 

C fpMlRfll JNFPRMA1IPM PI 

f* ************************************************* ******************* pi. 

Ml 1= 1 p| 

NV=l PL 

wn=i? PI 

ww=| PI. 

N ] = Q p| 

!FX = 3 PL 

N0=? PI 

np 5 1=1 ,3 PL 

* Msnc n = i pi 

WRTTF( JU,? POO ) Ml IMF , KP nF , Nl )MM A T » Nl IMPFP » NIIM TC PL 

WRT1F (|U, ?P)<>) PI. 

nn AO M=1 .Ml I MM AT PL 

RFAP(Itt f |010)M«NTr.(M) v ^l|M) PI 

TFIMrC(M).LF.n) MTC(M) = 1 PI. 

UR HF( IW, ?O?0 ) N,NTC. IN ) f WT (M) PI 

f *********************************************************************** p|_ 

C 7FMPFR A TURF OF PFNnFN T M A T FR I A|. PRPPFRTIFS PI 

£ ********** ****** ************* ******* *************** ******************** p|_ 

MlsMTC IN) PI 

RFAO( IR.1005 ) ( IPMAT( 1,.I,M) ,.l=l ,R ) , I = 1 ,MT) PL 

np in ) = | v mi pi 

TF{ PMAT( T , A,M ) j.F .0. ) PMAT( ) ,* ,M ) =PMAT ( I ♦ 5 , N ) PL 

IFf PMA1 ( I ,7«MT I.LF.O. ) PMA1 ( I ,7,N)=PMAT ( ! ,5,M |*p,577 PI 

TF{ PMAT( ! t R,NT ) ,I.F.n, ) PMAT( I ,R,N)=pMAT( I , 0 , N ) PL 

10 CPM11HIIF PI 

50 ‘*»R TTF( iw t ?nin) ( ipmatc 1 , .1 * m ) *.l = l ( R)( ! = l ,mt! PL 

f************ ******************************************************** ***p| 

c pfomf tr t r prppfrty car ns pi. 

f ********************************************************* **************pi 

WRTTFf IW,?01 ] ) PL 

PP 70 1 = 1 « AM IMPFn pi 

R FAP( |P ♦ 1 005 ) M . TH,W, SA, SI ,11, UF PL 

TF( WF.I.F.O, ) WF = W PI 

pr,FP( M , 1 ) = 1 ,n+s A/( -JftTH ) PI. 

pKFp(N,?)aW/lH p| 

PGFflf M,3 laMF/IH PL 

nR=SA*P/ft'*TH+5A ) p| 

R I =w#th**3 / 1 7 ,n+w#iH#niv*nu4-s I + sa*( p/pgfp( m, j ) ) **? pi. 

PPFP( M, 4 ) = R I /TM**4 PI 

r.l =1 ? ,o*s l*>n,o?5/( -J*|H*«3 ) PL 


AN4570 
AM45R0 
AN4590 
AM4500 
AN451 0 
AM4570 
AM4530 
A M 4 5 4 0 
A M 4 f» 5 0 
AM4A50 
AN4570 
AN4f.R0 
AN4690 
AM4700 
AM47 10 
AM4770 
AN 4 7 30 
AM4740 
AN4750 
AN47f.O 
A M 4 7 7 O 
AN47R0 
A M 4 7 9 0 
AN4H00 
A M 4 R 1 0 
AM4RP0 
AN4H30 
AN4R40 
AM4R50 
AM4Rf.fl 
AM4870 

AM4RH0 
AM 4H9 0 
AM4900 
AM491 0 
AN49? 0 
AM 49 30 
AN4940 
A M 4 9 5 0 
AN4950 
A M 4 9 7 0 
AM49R0 
AM49QO 

A N 5 0 0 0 
A MS 01 0 
AM 50 7 0 
AMS 030 
A M SO 40 
AMS 050 
AMS050 
AM5070 
AMSOHO 
AMS (.9 0 
AMS 1 no 
AMS 1 10 
ANSI 70 
AMS 1 30 
ANSI 4n 
AMS 1 5(1 
AMS 1. 50 
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r.?=SA*n*n/s! 


pi 


C 3 = i ,o+c?/( n.Rn*p(;Fn( m, n+n. i ?) pi. 

PPFfMN, S)=?.n*pGFn<M,? j **?-*MnsoR 1 1 1 ,n+ci*C ? )+1 , 0 ) PI 

7 n WR 1 TF( IM t 7 m ?) N,TH f w , SA,S 1 ,n,v/F PL 

f*S£*#** *£#*$**#**<«*£*$**$****$* PI 

0 FI.FMFNT I.HMl Mill. T l Pi. I FR S PL 

f **#****$$******#$$*$**£****<:$<:$*#* ft#** *£*«***:>$<:* «****)(t**; 4 t$*<:$#*#«#**)Cc*p| 

on hi 1=1 , a PL 

PFAniiR.inp?) fmiii i t . 1 ) t (fmiii. (i ,j ) ,.i=3.s ) pi 

m FMIIU f *7 > = n. PL 

WR 11 F* IW,?P 04 ) IFMMI.I 1,1 ) # (FMIII U ,J) ,J= 3 , 5 ) • 1 = 1 , 4 ) PI 




C FI.FMFNT CAROS PI 

£**$£*£$ ****){:***** t****#*^*********#****^^*#***********#*# 1 !*^**'! 1 ^^:?^**^* 3 !: PL 


WR 1 1 F (fc,?PO?) 

M =1 

1^0 RFAPI ! R , 1 OP? ) IFI_.IF.TMA 7 . jnV,FRC,RFFT,AA,AR»RFTA t FFC,NS,lNC 
TF ( FRO *1 F . 0 . ) FRO = 1 . 

IF (FFO.I.F.P) F F 0 = 1 . 

TF( I Mr. .FO.Ol TNf.sl 
TF(NS.FO.P) ns = ? 

I F ( N S ■ L T *3) MS=1 

I F I I IF ( ? ) .FO. IF( 4 )) .Awn. INS.FO. IS) | MS= 1 ? 

AMr,aRFTA /5 7 .?Q 5 77 QS 

RHHsWl f I M A T ) 

TH 1 CK = P 0 F 0 ( 1 MAT * 1 ) 

rft=rft a 

KK = I MO *( 1 FI.-N) 
pn ] 4 ? 1 = 1,4 
14? | X( n = IF( 1 ) -KK 

nn SOP MFI. = M,IF|. 

TFMP=P. 

nn sbi 1 = 1 n 

T T = I X( T) 

1 FMp= TFMP+T f | \ )* 0 .?S 

xx( i ) =x( n ) 

YY f I ) - Y C I 1 I 

sni 77.1 T ) = 71 M ) 


PI 

PL 

PI 

PI. 

PI 

PL 

PI 

PL 

PI 

PI. 

PI 

PL 

PI 

PL 

PI 

PL 

PI 

PL 

PI 

PL 

PI 

Pi. 

PI 

PL 


0 1 MTFRpni. ATF MATFRTAI. PRPPFRTIFS FHR AVFRAOF Fl.pMFM T TFMPFRATURF PL 

f «#«***<:****#*****<:**##:>> *****»****$**<:****$* $*********###$**###**$ p| 


CALL INTFRPf PMAT . FF .MIIMTC .NIIMMA T , R . 7 , N TO ( 1 M A T) , I M.A T • TF MP ) 
F 4 = FF 14 ) 

FSrsFF ( S) 

Ff. = FF ( A ) 

F7=FF( 7) 

0 1 = F F I J )*o.RFQS 

r?=Cl /( 3 ,n*c 1 .n-FF( ?)**?)> 


PL 

PI 

PL 

PI 

PL 

PI 

PL 


o FORM CONST I TMT IMF 1 .AM ANI 1 OPMpHTF T H F R M A l_ STRFSSFS PL 


nn ?*s i=i ,3 
nn j=i,? 

?*s r.( i ,.n=n. 

Oi?,?)=i.n/FF{ i ) 

0 ( 1 , i ) =r.( ? ,? i /thick 

on ,?|=-OII ,1 )*FF<?> 

0 ( ?,1 )= 0 I 1 , 7 ) 

0 (?,?)=ri 7 ,?l*?.n*{ I.O+FFI?)) 
A I. P( 1 )=FF( 3 ) 


PL 

PI 

PL 

PI 

PL 

PI 

PL 

PI 

PL 


ANS 170 
AMSlRP 
ANS no 
A NS? no 
ANS ? 1 0 

ans??o 

ANS? 30 
ANS?4p 
AMS? 50 
ANS? M) 
AN S? 70 
AMS? RO 
AN5?90 
ANS300 
ANS 3 1 0 
ANS3?0 
ANS 330 
ANS340 
ANS350 
ANS 3 SO 
AMS 37 0 
AN S3 RO 
AN53R0 
ANS400 
AMS410 
ANS4?p 
ANS430 
ANS440 
ANS 450 
ANS460 
AMS470 
ANS4R0 
ANS 490 
ANS500 
ANS S 1 0 
ANSS? 0 
ANSS30 
ANSS40 
ANS550 
AN5560 
AMSS70 
ANSSRO 
ANSS90 
, ANSM)0 
AMS6l(j 
ANSA70 
ANS630 
, ANS640 
ANS^50 
AMSASO 

AMS(S 7 i) 
. ANSSRI) 
AN S F*90 
A N S 700 
ANS710 
, ANS 7? O 
ANS 730 
, ANS /40 
ANS 7 50 
, AMS7MI 


iz’8 



Al P ( ? ) = FF ( 3 ) PI 

At. P(3)=0. ‘ PL 

f.Al.l. FI. AW (PM A) PI 

{^££ £££££&££££££££££&£££££&££££££££££££££#£££££££££#£&£££££££>)(££££££#££££ p|_ 

C FORM FI.FMFNT LOCATION MATRIX ANn COMpllTF FI.FMFNT MATRICFS PI 

££££££££ *£££££ ££££££££££££££££££££££££££££!>: ££££££££#££££££££*£££££££££££ PL 
OP 170 ?= 1 , 4 PI 

I T = TX( I) PL 

7MPfI) = T(in PI 

1 _m ( i ) a ini 11 * 1 ) PL 

I.MH+M = !0(I!,?l PI 

l 70 l_M( I + fl )= in( 11 , 3 ) PL 

CALL OHAO CRHO, THICK ) PI. 

ARFA = XM( U + XM( ?)+XM{ 3 )+XM( 6 ) PL 

HWT MOV )=UWT ( mw ) + ARFA#RHO*FRC PL 

C ££££££££££££££££££££ £ £ £ £ * £ * ££ £ £ £££ £ £ £ £ £ £ £ £ £ £ ££££$££££££££££&££££££#&£££ p 

r r.nMPinf fi.fmfnt itfsicn information pi 

C * £**£££££££££££££ ££££££££££££££££££££££££££££££££££££££££££££££££££££££ p|_ 

IF( AA,LF.n)AA=.5* ( < X7 + X3-X1-X4 )£0COS< ANG) - ( Y7 + Y3-Y1-Y4 )*I)S1N( ANG) ) PI 
IF( AR.I.F .0) AP=,5*( IX3+X4-Xl-X?)*nSIN( ANG)+( Y3+Y4-Yl-Y?)*nCOS< ANG) ) PL 
SRC=C1 *FF0*PGFO{ I MAT .4 ) /( A A* A A£PGFO I I MAT,?) ) PI 

PRC = C?*TMICK/ PGFOI TMAT.3 )**? pi. 

GRC=C?*0. ?5*PGF0 ( I MAT , 5 )/AR**4 PI 

C PL 

C £££££££££££££££*££*£*££££££££££££ £6 ££££££££££££££££££££££££££££££££££££p| 

C CAI.CIILATF R ANnw 1 D TH AMO WR 1 TF FI.FMFNT INFO. ON TAPFS PL 

C ££££££££££££££££££££££££££ ££££££**£££££££££££££££££££££££££££££££ p| 


TFtMS.F0.15) GO TO A00 
MM = Mj;*NO*MU 

CALL RFARAN ( ST*ST, 15 , 1 ? , l ,NS,Nn,NU,MN ) 

MNsNS* 4 *MU 

CALL RFARANI TT,TT, 1 R t 4 ,l,NS, 4 .MU,NN) 

AOO CALL CALRANINniFfl.M, Sf PfSl * TT , Nil , MV ,NS , NO ,nw , 1 11 V , IFX,FRC) 
TF(LRHr.K.NF.O) CALL FLGSIIVK G ,NSG,NO,NG, 1 1 1 ) 

WR IT F II*) Nl.PFT ,F 4 ,F 5 ,FF,F 7 *PGFO UMAT ,1 I ,SRCiP«C,GHC 
WR I T F ( I W, 7003 ) MF I. * I X , l M A r , I OV , FRC ,RFF T * AA , AR, PF T A , FFC , MS t NHI F 
no 4*0 1 = 1,4 

4 sn f y ( |) = TX( n + iwc 

son CON 7 I N| IF 
Ws ! Fl. + l 

IF(N.LF.NUMF) go TO 130 

RFTIJRM 

IPO? FORMAT I 4 F 1 0 . 0 ) 

1003 FORMAT! 715 , 5 X, 4 F 10 . 0 / 7 F 1 0 . 0 »?I 3 ) 

100 * FOR M A 1 (RFIO.O) 

100 F FnRMA f( T*,AF 1 0,0 ) 

10)0 FORMA 7 (? 15 , FIO.O) 

7000 FORMAT! 43 HJNHMPFR OF MFMRRANF FI.FMFMTS 
1 4 4 H CONSTRUCT ION KOOF 

? 44 H NIIMRFR OF'maTFRI AI.S 

3 A 4 M NIIMRFR OF GFPMFTRIC PPOPFRlfFS 

4 44 H NIIMRFR OF T FMP S FOR WHICH MATl. 

?nn? FORMAT!// ? 3 H PROCFSSFn F l_ F M F N 1 DATA// 

1 1 ? 1 H F |_ F M t / wnnFS //“in wns-/ OFS VAR KFFFPFMCF 

?M A X l/FNGTH WIDTH AMGI.F in FMP FIXITY PR N 1 RAMI) / 

3 1 7 1 H MIIMRR I .) K I. MAT IW FRACTION T FMP 

40 F STTFFMR OF FI.FMFNT PPIMf l)|RM COFFFT CIMlF WOlH / ) PI 

7003 FORM AT( 1 Y, 7 ? 5 f f»Fl 7 * 4 , 714 ) PL 

7004 FOP MA T ( 73 H FI.FMFNT I.OAO FRACTIONS / 59 H I.OAO CASF IFMPFRAlllRF X-OJPI 

1 RFCTI 0 M Y- 01 RFCTir*M 7 -OIRFCTinN /WX, 1 HA. 4 F 1 7 . 3 / PL 


= ,15/ 
= , 15/ 
= ♦15/ 
= ,15/ 

PROPS GIVFN=,I5) 


A N S 7 7 0 
AN57R0 
AN 5790 
AN5P00 
AN5H10 
AN5R? 0 
AN5H30 
AMSR40 
AN5R50 
AM5RA0 
AM5H7U 
AN5RR0 
AN5H90 
AM5900 
A M 5 9 1 () 
AN5970 
AM5930 
AN 5940 
AN5950 
AN59 AO 
AN5970 
AN 59 RO 
ANS990 
ANAOOO 
AN6010 
AN 5070 
ANA030 
AN5040 
AN6050 
ANAOAO 
AMA070 
ANAORO 
ANA090 
ANA 1 00 
ANA 110 
A M A 1 7 0 
ANA ! 30 
ANA 1 40 
ANA] 50 
ANA1 AO 
A N A 1 7 0 
ANA 1 MO 
ANA) 90 
ANA? 00 
ANA? 10 
AN A? 7 0 
AN A? 30 
ANA? 40 
AMA750 
ANA? AO 
ANA770 
ANA? RO 
ANA790 
ANA 300 
ANA 31 0 
AN A 37 0 
ANA ?30 
AM A 340 
AMA 350 
A N A 3 A 0 


XD 


TO 


7 QX,1HB,4F1?.3/ 9X « 1 HC , 4F 1 7 • 3/ 9X , l HP, 4F 1 7 . 3 > 
?nin forma ti th+.75x,rf n .4/( 7 ax ,rf 14.4 ) ) 

?011 FORMAT I /9 ]H GFOMFTRY $HFFT SPACING OF 

\ PR PRPPFRTTFS / WIDTH OF / 

7 Q1H NIIMRFK THIfKWFSS STIFFFNFRS 

4 n 1ST OF COG SHFFT > 

7017 FORMATI IX, IS, AF 1 4.4 ) 

?Ol9 FnRMhTt / / 75H MATERIAL PROPFR7Y CARDS / 
1/I75H HA 71. NP OF SPFCIFIf. 

7SSONS r.PFFFT PF / 

NRR TFMP WFIGHT 

4AJ1P THERM FXPN TFMS 

?0?n FORMAT (1 X, 14, I A,7X , F 14 .4 ) 

FMD 


PI AN6370 
PL ANF.3RP 

SI IFFFNPI AN A 390 

PL ANA400 

ARFA INFR7IA PI ANA410 

PL 6Nf,4?D 
PI ANA430 
PL AMf.440 
YPIINGS PPIPI AMA450 

AI.I.PUARLF STRESSES / PL ANA460 

TFMPFR A 7IJRF MPOHI.IIS R PI ANA470 

CPMP SHF AR CRIPL1NG / ) PL ANA4R0 

PI ANA490 
PI. ANA 600 


SUBROUTINE PP1.AN1 [ APl.D* ANFW , I.P AP« MIIMOV ) PLAN&510 

{■*#*#ft*ftft*##****#ftft*******ftftft##*ft*ftftft*ft*#ft*#ft****ft*****ftft##*ftftft#****#ftftftP|ANA5?0 

C DFSIGN PF STTFFFMFD M F MpR AM F FI.FMFNJ PI. ANA930 

£##*#** ft# **#*## ft**####*##*## ft##**#*ftft ***##*ft#*ft*##*ftft#ft#ftft**##*ft*#**ftftft# PI. ANAS 40 

niMFNsiPN Ani.ni wnwnw ) ,anfwi nhmpv ) ,lpadinhmdv) pl ana550 

COMMON/ JUNK/ 1.7 »LH,L* SGI ?0> .SIGI 7 ) . I OVAR , IFXtFRC, ARFA, PI ANA560 

1 XIMFRT ,RFTA ,TFNS. CPMP, SHF A« , CRUSH, T All, SRC . PHC « GRC , JIIN 1 1 374) PL A N f> 5 7 0 

PX=ST0(4) PI ANA5H0 

PY = S 1 Gl 5 ) PL ANA590 

PXY=S IG ( A ) PI ANAAOO 

C***#* ******** ##*#**********#*###**##** ftftftftft ft# ft ***#****#ft**ft# ft*'**# ****** PL AN A A 10 

C Fin. LY STPFSSFn DFSIGM PI AN6A70 

C ******* ****** ft* ******* ft*** *************** ft ft******###*** ****** ********** PL ANAA'30 
P] =CPMP*7 AIJ*ARFA PI AMAA40 

P?=CPMP«ARFA PI.ANAA50 

P1?=SHFAR*APFA PI AN6AA0 

IF (PX.GT.n.O) PI =TFNS*TAH«ARFA PL AMAA70 

IF (PY.GT.0,0) P7=TFNS*ARFA Pl ANAAflO 

RMAX=( PX/P1 >**7+{ PY/P? )#*7-( PX/P1 )*( PY/P?)+( PXY/P12)**2 PLANAA90 

RMAX=S0R7 (PMAX ) PI ANA700 

IF (PY.GF.O.O) GO TP 100 PLAN6710 

£##**####**#**##**#*********## ******** ******#**###ft****##**ft*##*****##**P|ANf>77Q 

c STTFFFNFR FAII.IIRF PL Aw A 7 30 

fft* *#** ******** ft* ft*#***#**#*** ft# ft*************************************** p| ANA 740 
P=-PX PL ANA750 

PF = SRC«XIMFRT PI AMA760- 

R = ( P/PF ) /( 1 .O/fFX ) PI.AMA770 

IF (R.G7.RMAX) P M A X = H PI AMA7H0 

PI =CP«LSH*TAH«ARFA Pi. AMA790 

P7sn # c;#pi PI AMABOO 

CALL JOHNS (1FX,P,PI,P7,PF,R) PL A MAR 1 0 

IF IR.G7.RMAX) R M A X s R PIANAH70 

C# ###*#**#**## ft# ft*#*#****#**#* ft ft##* ft# ******* ft *#**##**#**##***ft*ft*ft#*#**#PL ANAR 30 

C SHFFT RUCKLING RFTUFFN S7IFFFMFRS P| AMAH40 

f. ft**#####*####*##*#*#*#*#**#**####***#*****# ft ********************* ft# ft* ft *pi. ANAR 50 
inn PX = -PX PI AMAPAO 

PY=— P Y PLAWAH70 

AA=PX+4 .OftPY/TAH Pl AM ARP 0 

RR = 1 ,4QS*PXY/TA|I PLAMAH90 

R=n.^ft I AA + SOp T ( AA*ft7 + RR**7 ) ) /PMC PI ANA900 

IF (P.GT.RMAX) RMAXsp PL ANA«UO 
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f ********* £$£***$ fc a £*£***:!: £ 

C GFNFRAL mir.KI. |NG PF PANFL 

£************************************* 
IF ( Px.LT.n.nj go tp i i h 
PF = GRC* XT MFR T *ARF A* ARF A 
A A = PX / PF 
R=AA**P.7 

TF ( R .GT .R M A y ) pMAX=R 
IIP AA=RMAX*Am.Hf inVAP ) 

I F( AA .1. T . ANFW( [nv AR ) } GP TP 60 
AMFWI TOVAR ) = A A 
l.flAnf TDVAR | s|. 

(SO COM 7 T WMF 
PFTIIRM 
FMD 


********************************** p| 

PL 

****$#**************$************* p| 

PL 

PI 

PL 

PI 

PL 

PI 

PL 

PI 

PL 

PI. 

PL 

PI 


AN69?0 
A *16930 
AM6940 
AN6950 
A N 6 9 6 0 
AN6970 
AM6980 
AN6990 
AM7000 
AM 70 l n 
AM70P0 
AM 70 30 
AN70&0 
AM 70 50 
AM 7 060 
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SMRRnin IMF PI. N AX? I MW 1 , in,X. Y, 7 , T,NTC , W7 , PMA T ,NI)MnV,NIIMMp t NIJMMAl , PI 
1 Ml IH TC • K HOF , Ml IM F ) PL 

£$$$$***:(!*£$* *$$*<«**$$!>*:*« <c $*£$**£* 

C PI.AMF ISnTPPPlC MFMRRANF FLPMFMTS PL 

IMPLICIT R F A I. # fl (A-HfP-n PL 

RFAL*4 1IW7,X,Y,7,T,W*I,PMAT,RF7 , F4 , F 5 , F A , FR C PI 

niMFMSinw I IW T( MIIMPV > , I D( MUMMP ,A ) , XI NIIMNP ) , Y I NIIMNP ) , Z I N1JMNP) , PL 

lT(MMMMP),NTf.CM||MMA7) ,W1 fNtlMMAI ) , pMA 7 ( NUM1C , 7 , NIJMMA 1 ) PI 

mMMDM/FM/LMl l?I t SIPtP),P(17tft,?),XMn?),ST(15.12).TTU'),Al f PL 
1 r,ii?ti?t 3 »*RR(i?.l?).FMiu 7 nn) pi 

CnMMnW/.IIINK/IFI A) , IX( a I f FMMU A, 5) ,nn, 31 ,XX ( A) ,YV ( A) ,ZZ ( 4) ,TMp|4) , PL 
I ALP<3) t nn?> t PRF.SS,RFF1,NS,NSPI3>,FFIA),,*nN(73fl) PI 

CnMMnM/CnNTR/ICl( 13) .I.RUCK ,IC?I 15) PL 

rnMMnw/iiNiTs/iR, iw, ip, n. i?. i?, ip, 19 , no, M 3 pi 

c r.nMlRPl. INFORMATION PI 

NN=1 PI 

mr=i? pl 

NV=? PI 

MW=1 PL 

Ml =4 PI 

MO =3 PL 

nn *i 1 = 1,3 pi 

5 MSfiC I 1=1 PL 

I F X =0 PI 

WRITFI IW,?OnO)N|IMF*KnnF,MIIMMATfMI|MTC PL 




C MAT FR T Al. PRPPFRT Y CAPPS PL 


WRITFt I W , 7 0 1 9 ) PI. 

nn ao m= i , mmmma 7 pi 

RFAnt IR.inin) M,MTC(N ) ,WT(M) PL 

JFIWTf (M).I.F.n) NTC(MI = 1 PI 

WR ITFMVJ,?n?0) WfMTCI N J ,WT( N| PL 

C TFMPFR A TURF PF PFNPFNT MATFRIAL PROPFK T I FS PL 

C#**#*##* $£##«**#$««$*$##*#**£*#$******)£ 

MT=MTC(N) PL 

RFAPI JR , 1 00 5 ) UPMAKI,J,M| t J=l t 7),l = 1,Nl) PI 

nn m i = ) ,nt pl 

1F(PMA7(T,A,M).LF.0. ) PMA7 I I ,A,N ) = PMA Ml , 5 ,N ) PI 

10 CnwTIMMF PL 

AO WRITFI IW, 7010) I fPMAI I | , J «M ) « J - 1 ,7) ,1=1 , Ml ) PI 

C. FI.FMFM7 LPAI1 Mill. 7 I PI. IFRS PI. 

C *£*$**£*$£**$**£*******£**###*«*$*$*$* 

RFAO MR, 1007) MFMIII.M , .1) «.l=l ,S ), 1=1 ,4 ) PI 

WRITFI !U,7n04> I IFMUL I! ,.|) ,.1 = 1 ,5) , 1 = 1 ,M PL 

f###<r$***<^****#*>>#*^*iJt***********j!::***:*#*****$**#*##*$*$*««*<f*S$*****#*P| 

c FLFMFNT CAPPS PL 

C # # if # # # * # t? * fc # * #4 * ## $* $ * # af * # ft ft $ * 4 ft ft ft ft * ft * ft * ft ft ft ft ft ft ft ft $ $ ft * ft $ 4s ft ft ft ft ft ft ft ft ft ft * ft ft p| 

WPTTF I A, 7007) PL 

M=1 Pl 

130 RFAOI 1R , 1003 ) I FL , IF , 1 MA f , I OV , FR C . R F F T , PR F S S ♦ PF T A , MS • I MC PL 

IF IFPC.I.F.O.) F R C = 1 , PI 

I F ( IWC.FO.O) IMC=1 pl. 

TF(MS.FO.r) m S = 3 PI 

1 F| MS .1.7,3) NS=1 PI. 


AM7070 
AM70K0 
AM 7 090 
AM7100 
AM7) 10 
AM71P0 
AN7 130 
AN 7 1 40 
ANY 150 
AM71 AO 
AN7 170 
AN7180 
AM7 190 
AN 7? no 
AN7710 
AN7??0 
AN7?30 
AN7?40 
AN7? 50 
AN7?A0 
AN7P70 
AN77R0 
AN7790 
A N 7300 
AN7310 
AN 7370 
AM7330 
AN7340 
AN7350 
AN73A0 
AN7370 
A N 7 3 A 0 
AN7390 
AM 74 00 
AN 74 10 
AN7470 
AN7430 
AM 74 AO 
A M 7 4 5 0 
AM74A0 
AM 7 47 0 
AN 74 HO 
AN74«0 
AM7S00 
AN7510 
AN 7 5? 0 
A M 7 5 3 0 

AN754P 

AN7550 
A N 7 5 AO 
A N 7 A 7 0 
AN 7 5 HO 
A W 7 5 9 0 
AM7A00 
AM 7 4 1 0 
AN7A70 
AN 7 A 30 
AM7AAP 
AM7A50 
AM7AA0 
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T F ( IIFM) .FO. I F ( A J ) . AND. (NS. Ft). IS) ) MS = ]? PI 

RHn=WT(IMAT) PI. 

RF T = RF 1 A pi 

KK=TMC*( TFI.-N ) PI. 

no 14 ? 1=1,4 PI 

14 ? T X C 1 ) = I F ( 1 ) -KK PI. 

nn son nfi.=n,|fi. pi 

TFMP=n. PL 

nn soi 1 = 1 ,4 pi 

1 T = IX( u PL 

TFMp=TFMP + T( II )* 0 .?S PI 

XX( 1 ) =X( II ) PL 

YY( I J=YU 1 ) PI 

sm 7 7 ( i ) = 7 f in pl 

C TMTFRPm.ATF MATFRTAI. PRPPFRTIFS FOR AVFRAGF Fl.FMFNT TFMPFPATURF PL 

CALL INTFRP 1 PM AT ,FF ,N||MTC ,NMMMA r, 7 « 6 fNTCIIMAl),IMAT,TFMP) PL 

F 4 = FF( 4 ) PI 

FS=FF( S ) pi. 

FA=FF(A) PI 

C FORM CONST I HIT I VF LAW AND COMPM 7 F THpRM AL STRESSFS PI 

nn ?af i = i,? pi. 

nn ?as j = i ,3 pl 

?as n(i,j)=n. Pl 

nt ?,? ) = i ,n/FF( i ) pl 

dm 1 1 )=Hf ?,? 1 pi 

n( i ,?)=-n< i ,i )*ff< ?) PL 

ni ?,i ) = n( i ,?) pi 

nn,3 )=o( ?,? )#?,o*( i . p+f f ( ? ) ) pl 

AI_P( 1 )=FFm PI 

Al_ P( P ) -F F ( ? ) PL 

Al. P(?)= 0 . Pl 

CALL FLAW(n.nno) PL 

c FORM Fl.FMFNT LOCATION MATRIX AMn COMPIITF FLFMFNT M ATR I CR S PL 

L**$***$$*£*#******:<i$ ****£*«£$*$***>#$**«#*£#*£$##$ 

nn 170 1 = 1,4 pl 

I T = 1 x c r> Pl 

TMP{ T ) = T (11 ) PL 

i.»( n = int it .1 ) pi 

LM{ I +4 )= in( IT,?) PL 

170 1_M( 1+R) = m( U,?) PI 

CALL nilAIHPHO, l.onn) PL 

ARFA = XM(l ) + XM(?)+XM(?)+XM(4) PI 

own 10V I =l|w Tf irw ) + A«F A*RHM*FRC pi. 

IFfMS.FO, IS) GO TO APO PI 

NM = MS*Mn*M|l PL 

CALL PFARAM ( SI , ST • 1 S . ] ? , \ , MS , NP ,NI I , NN ) PI 

MM=MS*4*MW PI. 

CAI.I. RFAPAM(1T , TT, IS, 4, 1 , M S , 4 , M w , MM ) PI 

Ann call C Ai.R an( no if ,i.m,s,P,ST , T T ,nii , mv, ns ,np,nw, i nv , I F x , Fkf. ) PL 

TFf I.RMCK.MF.n ) f.Al.l. FI.GSl IW ( G , NSG ,NP , MG . H 1) PI 

WP 1 T F ( T n ) MI,RFT ,F 4 ,F 5 ,FA PL 

wp I 1 F ( ?w, ?0P* | MFI , 1 X, fMAl , in\/,F«C,RFF1 ,PRFSS,HFTA,NS*MOI h PI 

nn 4Sn l = i ,4 PL 

4 sn i y ( n= i y( t ) + TMf. PI 

son r.nMT i mi if PL 


AM7A70 
AN7RH0 
AM7A^0 
AN7700 
AM 7 7 l O 
AM7770 
AN7730 
AM7740 
AN 7 7 5(1 
AM77A0 
AN7770 
A w 7 7 R 0 
AM7790 
AN7R00 
AM 7 H 1 0 
AM7RP0 
AM 7 R 30 
AN7R40 
AN7R50 
AM7RA0 
AN7H70 
AM7BR0 
AM7R90 
AN7900 
AN7910 
A M79? 0 
AN7930 
AN7940 
AM7950 
AM79A0 
AM 7970 
AN79R0 
AN7990 
AMflOOO 
ANH01.0 
AMRO? 0 
AMR 030 
AN PM4() 
AMR050 
ANROAO 
A M R 0 7 0 
AMROHO 
AMR 090 
ANHIOO 
AMR 1 10 
AN H 1 ? 0 
ANRI 30 
AMR 140 
A M « 1 5 0 
AMR 1 AO 
A M R ) 7 0 
A MR 1 RO 

A N R 1 9 0 
AMR? 00 
AMR? 1 0 
AMR? ? 0 
AMR? 30 
AMR? 40 
A M R ? 5 O 
ANH? AO 
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Ms T FI. 4-] 


PI ANR770 


IF( m.lf.miimf > go in nn 

RFTIIRN 

] on? FORMAT! sfio.oi 

inn* FOR MAT I 7I5*FS.O,3F10.n,?I 5 } 

Ioor format ( 7F10 ,ni 
1010 FORMAT ( ?T 5, FIO.O) 

7000 FORMA T( 44H1NIIMRFR OF MFMRR AMF FI.FMFNTS = ,I5 / 

1 44H rOMSTFIIf. T TON KODF =,15/ 

? 44 W NIIMRFP OF MATFRlAl.S =,15/ 

? 44M NIIMRFP OF T F MPS Fnp WHICH MAT!. PROPS G!VFN=,I5) 

?00? FORMAT! / / 73H PRnr.FSSFn RI.FMFNT OAT A / / 

1 97 H FI.FMT/ NOOFS //-III MI'S-/ OF S VAR RFFFRFNCF 

? PRN T RAMP , / 

? 97H Ml I MR R I J K I. MAT OV FRACTION ] FMP 

4PRFSSDRF RFTA COOF WDTH /) 

700* FORMAT! ]X,715,4Fl?.4,PIft) 

7004 FORMAT! 73H Fl.FMFNT LOAD FRACTIONS/ / 7 1H LOAD CASP TEMPFRATURF 
1SSMRF X-OIRFCTIOM Y-niRFCTION 7-DIRFCTION / 

7 *X * \HA ,3X , 5F 1 7 .3 / ftX , 1 HR ,3X ,5F1?.3/ AX ,1HC ,3X ,5Fl?.3/ 
3 AX * 1 HP , 3X , 5F 1 7 • 3 ) 

7010 FORMAT! lH+ f 77X,7F14. 4 /( ?H X , 7F 1 4. 4 ) ) 

701 9 FORMAT!// ?SH MATFR I Al_ PROPFPTY CARDS / 

1/175H M ATI. NO OF SPFC1FIC YOUNGS 

7 S SONS COFFFT OF / ALLOWARI.F STRFSSFS 

3/i?ih mrr tfmp wfight tfmpfraturf mopulus 

4ATI0 THFRM FXPM TFMSIPN COMPRFSS10N SHFAR/) 

7070 FORMAT! IX* 14 , IA,7X t F14.4) 

FMn 


PL ANM7HD 
PI ANH790 
PL AMR300 
PI ANH310 
PL ANR37D 
PI A N R 3 3 ( ) 
PL ANR340 
PI ANH 350 
PI. AMR3R0 
PI ANR 370 
PL ANR3R0 
PI ANR 39 0 
PL ANR400 
PI AMR410 
PL AMR47 0 
PC 0NR43O 
PRFPL ANR440 
PI ANR450 
PL ANR4A0 
PI AM8470 
PL AMR4R0 
PI AM R 490 
POIPL ANR500 
/ PI AMR510 
RPL ANR570 
PI AMR S 30 
PI. A MRS 40 
PI A NR 5 50 


StlPROiniNF DPI. AN? ( AOLPt ANF W , |. 0 A P *NI IMI)V ) PIANR5A0 

** $$ £ * £ ******* p|_ AMR 5 70 

C STRFSS PFSIGW OF rSOTROPIC MFMRRANF FLFMFNT PI ANR SRO 

(^ $*** + * ******* *** $***$«***************** *-:***$ £***£$***$*$******$:{:** *$*:*p|_ ANR 590 
PTMFMSJON AOI.D! NIIMflV ) * ANFW! MIIMPV ) * LOAD I MIJMOV 1 PI ANR 600 

COMMON/ JUNK/ I.T *LH ,1. « SG( 70 ) , S I G I 7 ) . I DVAR , I FX * FRO , AREA , PL ANRMO 

T X1MFRT ,RFTA»TFMS, COMP, SHFAR, JIINl <3?q ) P1ANRA70 

CC=! S ! G! 1 ) + S IG! 7 I )*0.5 PLAnpajo 

AR= !SIG! 1 )-SIG!?n*0.5 PI AMR Aqo 


C R = S OR T{ RR*RR + S IG! 3 )**? ) 

PX=CC+CR 
PY =CC -CR 
P 1 =r.DMp $ ft r F A 
P?=COMp*ARFA 

IF. (PX.GT.O.O) p 1 = T F M S *ARFA 

IF ( PY.GT.n.P) P?sTFMS*ARFA 

RMAX=! PX/P1 )**?+! PY/P? )**?-< PX /PI )# !PY/P? ) 

RMAX = SORT! RMAX) 

IF! SHFAR. FO.n. ) GO TP 50 
PXY=CR/{ AR F A *SHF A R ) 

?F!RMAX.I.T,PXY) RMAX = PXY 
SO AA = RMAX* AOl.n! 10VAR ) 

TF! AA.U. AMFW( lOVAH ) ) GO TO AO 
AMFW! 10VAR ) = A A 
1. 0 A 0 ! 1 PVAR ) =1. 

*0 RFTIIRM 
Fwn - 


PL AMRf , 50 
PI ANRAAO 
PL ANRA70 
PI AMH6R0 
PL AMR^qn 

PI ANR 700 

PL ANR 7 10 
PI A M R 7 ? 0 
PL ANH7 30 
PI ANR74!) 
PL A NH 7 50 
PI A M R 7 A 0 
PL ANH770 
PI ANR7M0 
PL AM«7qo 
PI AMHHIH) 
PL AMHH 1 0 

PI ANMR70 
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SIIRROMTIMF S»-»FAP( a •mtpt) shfroooo 

f **#***$$ ***$*$>****$**.}(*** *£<c«ft6*4&* £*#***«** ***£#*# «*#«**#***«*«»**#* **$hfR 001 0 

C SHFAP PAMFL FI.FMFMTS SHFR0070 

n 1 MFMS I ON A( M Tfl T ) SHFR0040 

COMMON /FI. PAR / MPAR ( 1 A ) , Ml IMNP , MR AMO , NF I. T YP • N 1 ,M?,N? f NA,NS,M1 H , NE G SHF R 0050 
l .MIIMFL •NIIMDV »M1 V M7 V M^ V |.L «LR •NFrm.NHl.OCK SHFROOAn 

COMMON/, MINK /LT,I.H,L . M ft I 77 ) • I OV AR , 1 FX , FRC . A»F A , X ? MFP T , JIIN 11 333 ) SNFR0070 

COMMON/IIM1 FS/1K*|WtIP*I l.l ?*I3 f |R« 19 « ! 10 f I 11 « I 17* I 13 SHFROOHO 

NMMFsNPAR *7) SHF R 0090 

KOnFsMPAR(S) SHFP.OlOn 

|F|NPAR(1 ).FO,n)GP TO son SHF R 0 1 10 

NfcsMH + NtlMNP SHFR0170 

CP in M,7).K0nF SHFR0130 

r SHF AR PAM FI. WITH STPFSS AND RMC.KL TNG CONSTRAINTS SHFR0150 

***£*** ************* ******** ********** ** *********** *********$, 

1 M|iMMA 7 sNP AR ( 3 ) SHFR0170 

Ml IM TC = M P AR ( A ) SHFPOIHO 

M7=M6+MMMMA1 SHFPO 1.90 

MR=N7+M|IMMAT SHFR07 HO 

MQsMR-f Ml IMM A 1 *MI IM TC * A SHFR07 If) 

MMsMO-MTOT SHFR0770 

TF ( MM.ftT. OJCAI.I. FRROR(MM) SHFR0730 

CALL PAMFL ( A(M1) v A(N1),A(N7)*A(N?)*AIN4),A(N5)«a(NM v A|N7) v SHFP 07 AO 

} A ( MR) , MH MOV/ , Ml IMM p , MOMMA 1 , M| IM 7 f. * KOOF , NMMF ) SHFR0750 

RFTIIPM SHFP07ftO 

f *********************************************** ************************<^j:rq;? 7 (-j 

C PROVISION FOR SPFCTAI. SHFAR PAMFL FLEMFNT SHF«n7fl(1 

^****~****s*************s* ******************************* *****************5HFR (>79 0 


7 CALL NOF I F M ( MPAR ( 1 ) # NPARI s ) , iw ) 

RFTMRM 

^no wrttf ( |w,?no7) KnnF 

np ROO MMs i f mi i m f 

call STRSCI Al Ml ) f A| Ml ) , A( M3 ) t NFO t NHMf>V*LL* LR»0) 
A A = A ( TOVAR ) *FRC. 

WRITF ( IW.70PS) MM, AA 

no pnn i. = LT,l.H 

IFtL.CT.LT 1 wr | TF( iw t ?0OA j 

CALL S1RSC( AIM)) .A INI ) .A(N?) . MFO , Nl IMDV , 1. L . L P . 1 ) 
S 1 C( P ) = I SICK U + S!C( ?)+Stft( 3 l + MC( A)) *0.?S 

HR I TF (TW.70O7) I., f s in c n , I-l ,*> 1 
IF( L .NF.I.MIWR |TF (19,700*) 

CO in 1?. A), KOOF 

£***** ******** sjt ********************* **************** 


SH FRO. 3 on 

SHFK03I 0 

SHFR0370 
SHFR0330 
SHFR03A0 
SHFR0350 
S HFRO 3frO 
SHFR0370 
SHFR03R0 
SHFR03V0 
SHFR0400 
SHFROAIO 
SHFR0470 
SHFR0A30 

*******************. <>HFR 04 40 


r iifsjgm of shfar panfl with sirfss anh buckling constraints smfro4so 

G********************** ******************************************* ******SHFR0440 
* CALL nPANFI. ( A f Ml | ,A tM7 ) ,A(M3) ,NI|MnV) SHFR0470 

00 TO HO" SHFR04R0 

C ***********************&**********£* ****<:*********************«****** **^t,<pR 049 0 

C PROVISION FOR OF S TON OF SPFCTAI. SHF AP PANFI. FI.FMFNT SHFR0500 

f :>******>!'** ******************************************************* ******5 f.jpp()c;lO 


a comjtmiif 
ROO COM! INI IF 
PFTMRN 

700? FORMAT I //40H 
1 Q?H 

7 OF S 

3 97H FI.FMFNT 
A K 


ANALYSIS OF 


— / AV/FRACF 
TH ICKMF SS 

SHF AP H O' 


SHF AP PANFI. S, 
I MAO / — 
/ 

rpMo 

/ ) 


C.OMSTPN f.O OF = , I ? 
SHFAR 


// 

FLOW 


AT 


SHFR0S70 
SHFR0S30 
SHF R 0^40 
SHFROSSO 
M0SHFR0S40 
SHFR0R70 
SHFROSMO 
SHFROSWO 
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200ft FORMAT! I*tlX*Flft.4) 

2004 FORMATf/1 

200 7 FORMAT ( lH+ T 2^X,lft,lX,ftF12.4) 

Fwn 


SHFR0400 
SHFROAIO 
SHFR0420 
SHFR 0430 


SIIRROUTIWF P ANF 1. 1 I iw T ♦ I n ♦ x , Y t Z » T » N TC ♦ W I , MMA T . NMMDV , NIIMNp ,NUMMA T • 5HFR0440 

1 Mf/MTC * KPOF • Mf IMF } SHFR0450 

C***** ************************ ********** 3 *********** *j* *********** ******:C:SHFR 04 60 

C SHF AR PAM FI. FI.FMFNTS SHFP0470 

C**************************** ******* ************************************5HFR048Q 
IMPLICIT RFAI.*fl { A-H t n-Z ) SHFR0690 

RFAI_*4 I1WT,X,Y,7*T,WT,PMAT,FRC,F3.SH0P SHFR0700 

niMFNSIOM IIU1I MHMnv ) , TO! NIIMNP, f.) ,X (NIIMNP ) ,Y( NIIMNP ) ,2 (NIIMNP ) , SHFR 07 10 

1 Tt NIIMNP | *NTCC NIIMMAT I * ’ J T ( NIIMMAT ) . PMA T ( Nl IMTC » 4 * NIIMM AT ) .CC(6.2) SHFK0720 

COMMON/FM/LMI 1?) ,S( 12*1?) »P( 12,4 ),ST(4,121,T7(4,4),XM(12)» SHFRO730 

^1 0( 12,1?) ,FM1( ?35M SHFR0740 

COMMON/ JIJNK/F Mill. 0*4 ), IF(4),IX(4| f XX(4),YY(4),Z7(4) t FF(31*ARFA, SHFRO750 
1 TF( 4 t ?) ,11(6) t V(4| ,0( 4) ,11(4 ),P1,P2 • JIINl ( 2521 SHFR0740 

COMMON/CONTR/ICI f I *1 «f.RlfCK, TC2( |SI SHFR0770 

COMMON /HMJTS/IRf IW,TP,ll v I?,I3,in,I9,nO«nifI12fI13 SHFR 07 80 

OATA CC/S.35 . R.99 , R • 99 , ft. 3ft * ft.?ft . 7.07 , SHFR0790 

1 3. OP f 5.72 * 3.2Q . 7. PS , ft. 43 . 3.91 / SHFR0800 

f* ** *********** **** ***************** **********************************'* *$HFR Oft 10 

C CONTROL INFORMATION SHFR0H2 0 

(;**** ************************************************************ *******SHFR OR 30 


wn=i? 

N| Is 1 
MV-l 
NVs 1 
MS = 4 
MJ = 2 
1 F X= 3 

Nfis 1 

nst,= i 

HR I 1 F { J W. 2000 ) Ml IMF , KPPF , M||MMA T ,NMMTC 


SHFR0R40 
SHFR0R50 
SHFR0R60 
SHFROR70 
SHFROBRO 
SHFR0R90 
SHFR0900 
SHF R 09 1 0 
SHFROP? 0 
SHFR0930 


C**** ******************************** ***********************************SHFR 09 40 

C matfrtal propfrty capos shfro9.so 

C ********************** *********** ************************************** SHFR0940 
HRTTFI JW.pnoi ) SHFR0P70 

no ft Ms 1 f NIIMM A T SHFRO9R0 

RFAOUR * I 001 I N.NTC(N) ,WT ( M ) SHF R 0990 

IF (MTC(N) .FO.ni WTr.(N)-l SHFR 1000 

WRTTF ( TH # 2nn2 1 M,NTC IN ) ,W7 (N ) SHFR10J0 

C**«* ******************************************************************* SHFRl 020 

c TFMPFRATHRF nFPFNOFNl MATFRJAI. PPnPFPTIFS SHFR 1030 

C********** ********************************************************** ***SHFR1040 
NT=NTC ( M ) SHFR ] 050 

00 5 .1=1 *N T SHFR10M) 

RFAO { IP. ftOOl ) IPMAT(J»K,M) ,K = 1 ,4) SHFR 1070 

IF (J.NF.l) vl R I IF ( 1 9 , ft 0 O 2 ) SHFRIOHO 

R HRHF MW, 4003) ( PM A *| ( J , K , N ) ,K=] ,4) SHF R ] 090 

C ***************************************************** ******************SHFRllO() 


C FI.FMFM1 I.OAO Mni.lIMI.IFRS SHFR 1 l 1 11 

C ********************************************************* ************:jc*SHFRl 120 
RFAO MR,} 003 ) MFMIH.I I ,J) ,.l=l ,4 ) , | =1 »? I SHFR 11 30 

HRTTF( IW, 200^1 | IFMIH.U ,.) ) ,.l=l ,4 ) , | = 1 ,3 J SHFR l 140 

C *********************************** ******************** **************** SHF R l J 50 

C FI.FMFNT CAPOS SHFRllMl 

C ;******** *****<■ ***« ******************* ********** ************************ ^np p | i7o 


I 
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wrttfi iw t ?nns ) 

N=l 

6 RFAO( |R 1 1004 ) I FI. , |F, IMATtinV.I SllfFKr.t AL,RL* INC 
! F I iwc.Fn.n) iMr, = i 
1F( FRC .l.F.n.O) F R f, = 1 • 0 
I F f JMA1 .F0.0) IMA I 
rhp=wt( Imat ) 

KK= JNC*f TFI.-M ) 

nn so [ = i ,/» 

60 T X( I ) = I F ( 1 ) — K K 
nn 6nn nfl=n • TFi. 

1FMP=0. 


SHFRI1 HO 
SHFR 1 190 
SHFR 1700 ‘ 
SHFR 1710 
SHFR1770 
SHFR 1730 
SHFR 1 7 40 
SHFR 1750 
SHFR 1? 60 
SHFR 1770 
SHFR 17 HO 
SHFR 1790 


on inn t = i ,4 

7 7 = TXI 7 ) 


SHFR 1 300 
SHFR 1 ?10 


xx( t ) =x( m 

YY( J )=Y( m 
771 T ) = 7 ( IT ) 

ion ifmp=tfmp+T( M )* n .75 

£##### ft ft ftftft# ft ###*##* ft# ######ft###ft#ftftft##ft#ft*#ft###ftft ft**#*### 


SHFR 1 370 
SHFR 1 ?30 
SHFR 1340 
SHFR 1350 
* **#######*# #*SHFR 1360 


p TN1FRP0I.A7F MA1FKVAL PPPPFRTIFS FOR AVFRAOF FIFMFN1 TFMPFRAlURf SHFR1370 

^ftftft#ft##ft#**ftftftftftft*#ft*#ft*##ftftft*ftftft#ftft**ftftftft#**##*ft######*ft####ftft###ft##ft#SHFRl3R0 
CALL TWTFRP(PMAT,FF,NIIMir. f MIIMMAT*4 f 3 •NIC I IMAl),lMAl t lFMp) SHFR 1 390 

F3=FF( 3 ) SHFR 1400 


£ftftftftftftftft##*ftft*ftft#ft*fti!!#ftft*#ftft#*ftftft**ftft##ftftij!##ftftftft*ftftftft#:4<ft#ft#ftftftftftftftft#ftft#5HFR1410 

C FORM FLFMFNT 1IWTT MATPTCFS AMO I.HAO VFCTORS SHFR1470 

r#ft###**#####ftftft#i:«ft##ftftftftftft#ft*ftftft>!:ft***ft#ftftftftftft##*########*#*#ft##ft##ft##ft#<;HFR1430 


SMnn=n.6*FF( 1) /< 1 *0+FF( ? ) ) 

CAI.I. FPAMFLf SMPn,FFI 7 ) » WHO , XL . Yl ,mf I. , I W ) 

!F( l RUCK .FO.O) CM TO 343 
CAIJ. SPKFPMfGI 

CALL F|.0 SUW( 0,NSRtWn*N0, 1 1 1 ) 

C#ft##ftftftftftftftft#ftftftrtft#ftftftft*ft#ftftft#ft##ftftftftftft#ft**ft*ftftftftftftftftft#ftft: 

c COMPIITF RIICKI. 7 MO MATA 


SHFR 1 440 
SHFR 1 450 
SHFR 1460 
SHFR 1470 
SHFR 1480 
:ftftftftft*###*ft*ftSHFR1490 
SHFR 1 500 


f #*#ftft*#*##**#ft ft**####*#*##*###* **ft*ft#*#####ftftft##ft*###ft####*#*###**##ft##5;HFR 1510 


343 SHCR=0, 

TF( ISO. FO.O) OP TP 171 
IF(XL.OF.YL) OP TO 170 
M = YI. 

Yl. =XL 
XL = H 

l?0 !F( A|. ,I.F .0. ) A|_=XI. 

7 F ( R|. * I. F. 0. ) R|. = YL 

h=cc( I si i ,1 )+r.r.( i so * 7 ) *bl*rl /( ai.*ai. ) 

SHCR=H*o. R^o^*ppn )/ 1 17.0*81 *RI.» H -n-FF|?)*FF(7 M ) 
171 IIUTt TOV | sllWTf inv 1+RHP*ARFA*FRC 


SHFR 1 570 
SHFR 1630 
SHFR 1 540 
SHFR 1550 
SHFR 1 560 
SHFR 1 670 
SHFR 1 580 
SHFR 1 590 
SHFRl 600 
SHFR 1610 
SHFR 1670 


f ft* ft ft###*###* *ft ftftftft# # ft ftftftft #* ft #ft*#ftftft*ftftft#ftft#*##ft**#ftftft#ftft ft#######*#### ft# SHFR 1630 


c FORM LOCATION MATRIX AMO COMPIITF RAMP ufOTH SHFR 1640 

f # ft# ft#*#**** ftftftftftftft ftftft ******* ft* ft### £*# ftftft ## ft#*###### ft#*#*#*#### ###ft#*#**SHFR 1650 
nn 470 7=1 t 4 SHFR 1660 

T T = f X I ] I SHFR 1670 

nn A7n .1 = 1,3 shfriobo 


1.1*11-1 )*? + J SHFR 1690 

470 I.Mf 1. 1 ) = I n( T I ,.l) SHFR 1700 

CALL CALRAMlwniF.I.M, S.P « ST , T1 .Mil. mu f MS, MO, MW, 1 11V. ! FX ,FRC ) SHFR l 710 

WRTTFUR) M 7 ,F3 1 SHC.P SHFR1770 

WRTTFf |H, ?np6 ) NFI. • FX.IMATt inv, 1 SH. F»C . Al. « FL . Ml) I F SHFR 1730 

(;*ft##**#**######ft #**#*****##**######**#### ft#***####### ft###*#*#*ft#*#####ftJiHFR 1740 

C CHFCK FOR MPRF FLFMFNT S SHFR 1760 

r.ftft# * #####*# #* #** # * * *## **##**# # ****** ** ****** * **************** *.*****»# *#shfri7mi 
OP 460 1 = 1,4 SHFR 1.770 


q. so 



450 txc i )*ixn m-inc 

50 n cpmuniif 

M=IF». + 1 

IFfM.I.F.NHMF) GP TP ft 
RFTItRN 

loni FORMAT! 'jfFin.P) 

1003 format! 4Fin.n) 

1004 FORMAT! P.I 5*?F 1 0-0. T *> ) 

?000 FORMAT! 44H1NUMAFR OF SHF AR PAMF1. FLFMfjNTS = ,15/ 

1 44H CONSTRUCTION COIIF =,15/ 

7 44H NIIMRFR nF MATFRlAl.S = ,15/ 

4 44 H MIIMRFR PF TFMPS FOP WHICH MATL PROPS GJVFN=,I5) 

?O01 FORMAT!// ? “i H MATFRIAI. PROPFR TY CAROS // 

1Q)H MATFRIAI. MIIMRFR SPFf.IFIC YOUNGS 

7 Al.I.nW AR|.F / 

39] H NIIMRFR OF TFMPS WFIGHT TFMP MODULUS 

4 SHFAR /) 

70P? FORMAT! Ift,5X*T5,F17.4) 


SHFR 1780 
SHFR I 790 
S HF P l 800 
SHFR 1 R 1 0 
SHFR JH?D 
SHFR 1 830 
SHFR 1 840 
SHFR I 850 
SHFRIRftO 
SHFR 1870 
SHFR 1 880 
SHFR 1890 
SHFR 1900 
PO I SSNSHFR 1910 
SHFR19P0 
RATIO SHFR 1 930 
SHFR 1940 
SHFR 1950 


POOR FORMAT!// ?5H FLFMFNT LOAO MULTIPLIERS //?0X . 1 HA , 14X , 1HB , 1 4X , 1 HC , SHFRl9ftO 


1 14X,lHP,/ftH X-PIR , 4F15.6/ ftH Y-PI R , 4F 1 5 . ft/ ftH 2-P I R , 4 F l 5 . ft ) 
7004 FORMAT! 1 7,?X ,41ft,317, 3F1?,4, Iftl 
?POR FORMAT!// 73H PRPCFSSFO FLFMFNT RATA// 

19ftH Ft.FMFNT / — - NPPF NOS // — EL IP NOS-/ ROUND 

PAR / — ffffci panfl pimns — / RAND / 

39ftH MIIMRFR I ,1 K L MfifL P VAR CPPF 

4PN LONGFR SHPRTFR WIDTH /) 

5001 FORMAT! 4F1 O.P) 
ftP07 FORMAT!/) 
ft003 FORMAT! 1 H+ , 30X , 4 F 1 7 . 4) 

FWP 


SHFR1970 
SHFR19R0 
SHFR 1990 
PFS VSHFR7000 
SHFR? 01 0 
FRAG T I SHF R7 07 0 
SHFR7030 
SHFR7040 
SHFR7050 
SHFR7PftO 
SHFR7070 


SU8P0IIT I MF SPGFPM (G) SHFR70H0 

(^*#^j>«*j!r#ie!**#**<r******«!*** 1 [:4*#4******#*****##*#4t*-:***«s«!******a!t****#«***«SHFR7 090 
C COMPIITF UNIT GFPMFTRIC STIFF NFSS MATRICFS SHFR7 100 




IMPLICIT RF AI_*A !A-H,P-Z) 
niMFNSIDN G f 1 7 1 1 7 ) 

C P MM flN / J l JM K /FMUU 3 ,4 J , 1 E( 4 ) , 1 X I 4 ) , XX I 4 ) . YY I 4 ) f ll ( 4 ) t FF ( 3 ) » Ar F A , 

1 TF!4,7) ,014) , V(4) ,0(4) ,P(4) , PI ,P? f AJ| ( 3 ) , A J? ( 3 ) . ,MJN 1 l?4p) 

00 10 T = 1 » 3 

AJ1 m=-lF(I, ] )*V( 1 ) +TF ( 1 1 7 ) *1 1 ! 1 ) 

10 A,!?( I)=-TF( I ,1 )*V| ?) + TF! I , ? ) *M! 7 ) 
on 18 i*t ,i 7 
nn 15 ,i=i ,i? 

15 GH « J )=P, 
no 70 t=i, 3 
on ?o .i= i ,3 

xi =( a. m n*A.in .i j+n( i )*n( .n >*n« u*p? /p? 

X?= I A . 17 ( n*A,i? ( J)+m I )*DU n*OI7 )*M /P7 


SHFR7 170 
SHFR? 130 
SHFR? 140 
SHFR715D 
SHFR7 1 ftO 
SHFR? 170 
SHFR71H0 
SHFR? 190 
SHFR?? 00* 
SHFR?? 10 
SHFR7770 
SMFR7730 
SHFR?? 40 
SHFR?? 50 


G! T ,.l )= XI 

G! [ t( i + ft)=-Xf 
G(.l+ft,I > = — X 1 


SHFR?? ftO 
SHFR? ? 70 
SHFR?? HO 


G f I +ft , J + ft ) = XI 
G! 1+3 , ,1 + 3 ) = X? 
G ( T +?','+<> )=-X? 


SHF R ? ? 9 f) 
SHFR? 300 
SHFR? 31 0 


G( . 1+9 * | +3 ) = — X? 
70 G I T+ 9 .J + 0 1 = x? 
RF TURN 
FMP 


SHFR? *70 
SHFR? 330 
SHFP7340 
SHFR ? 350 
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SMRRnin i nf fpanfi. (r; 9 (;r; v PHit v XL«Yi.«MK« |W) shfr?H60 

C** ##* ***** *** ************* ******* *********** *Se*************************SHFR? 3 70 

C FORM SHFAR PAWFI. F |_ F NF M 1 NAT»ICFS SHFR?3«0 

f, ********* ********************* * * * * * * * * *********************************SHFR?390 


I«P|.irn RFAl *p ( a-h , n - 7 ) 

CnMMnN/.IIIAIK/FMtlU 3,4) v |f:( 4 ) • I X( & ) «X (4),Y (4),? ( 4 ) , F F ( 3 ) . AR F A , 
1 7F(4,?) t H(4),V(4) t n<4),n(4),P], P?« Vl)l (4) , VI)? ( 4 ) « V ] ? I 4 ) , 

? V4i( 4 ) ,vpi 71 4 ) .T n 3 ) . T.M 3 ) ,jiiNi(?no) 
r.nMMnN/FP/I.MI 1 ?),S I 17»l?)tP M?«4)«ST<4 v f?).TT(4,4) v XM(l ?) 9 
1 fmm ( ;^ no) 

C 9ic * * * * * $ * * * * * * * * * * * * * * * * * * * * * # * * £ * 

C mm T T VFCTPRS Ai.nwr, diagonals 

r,********* 

CALL 


SHF R? 400 
SHFR7410 
SHFR?4? 0 
SHFR74.30 
SHFR? 440 
SHFP?45n 

************£************ **SHFR? 46 0 
♦ S I OF S AND WORMAI. TP I HF MF ANPL ANF SHFR7470 

:******************************* ******************************5HFR74H0 
VFCTPR ( vm .X( 1 > ,Y( l I ,ZI l),xm,Yn) .713) ) SHFR7490 


CALI. VFCTPR I Vr)?,X|?),YI?) ,7 (?),X(4) ,Y|4|,7 (4) ) 

CALL VFCTPR ( Vl? t X< 1 ) ,Y( ] > *7( 1 > .X| 7) »Y( 7) ,7 ( ?) » 

CALI. VFCTPR IV41«X(4),Y(4) t 7(4),X(l ) . Y I 1 ) * 7 ( 1 ) ) 

CALL CROSS ivni,vn? f 0) 

ARFA = n. S*vm I 4 )*V0? <4 ) *014 ) 

L ************* ******** ********** ft *********************** * *******: 

C FPPM TRANSFORMATION MATRIX TF 

C * ****** ** ** ** ** * * ******* ** ** ********** ************************** 

MH«nm i vi ?*o) 

nn m \ = ) , 3 

10 VP1 ?( I ) = I VI ?l I )-HH*n( 1 ) )*V17(4) 

VP 1 7 ( 4 )=OSOR T( VP 171 1 J*VP17( D+VP17I 7 )*VPl?l 7 ) +VP 1 713) *VP 171 3 ) ) 
nn 70 1 = 1.3 

70 TFt T ,1 )cVP17( I ) /VP] 71 4 ) 

cam. cross in* tf, tf i i .?) > 

f. ***********************************************************************$ HFR76 50 

r. CPMpin F FLFMFWl cnRMFR CPPROfNATFS in LOCAL AXFS SYSTFM SHFR7660 

C ******* ********** * *************************************************** **shFR?670 


SHFR? 500 
SHFR7510 
SHFR7570 
SHFR? 5 30 
SHFR7540 
*******SHFR7550 
SHFR756() 
|:*******SHFR?5 70 
SHFR75H0 
SHFP7S90 
SHFR? 600 
SHFR? 6 ] 0 
SHFR? 670 
SHFR 7 6 30 
SHFR? 640 


XI =0.0 

Yl =o.n 

X 7 = V P 1 ? ( 4 ) 

Y?=o.n 

x?=nm i t p t vni >*vni 1 4 j 
Y3=onri tf ( 1 , ? ) ,\/n ] »*\/nii 4 ) 
x4=-nm ( t f , \/4 1 )*V4 ii4) 

Y4 = ~nnj{ TF( 1 .? ) t VA] )*V41( 4 ) 
XL=0.^*(X?-X1+X3-X4) 

YL=n.«i*( Y3 + Y4 ) 

X74=X9-Y3*X4/Y4 
X4? = X4 — X? + ( X 7-X3 ) *Y4/Y3 
I F ( Y3 . I. T . . P 1 . PR . Y4 . I. T . . 0 1 . PP 
on fn 5 7 

7006 MR I TF I | w t ?PP7) MK 
STnp 

f ******************************** * 

C TFST FOR PAP AI.L F I. SfPFS 

f ******* ******** * sli * * * * * * ****** * * * * * * * * * 

57 Al=nA»Sl IY3-V/. ) /( X3-X4 ) ) 

A? = nARS|Y4*|X3-X?)-Y?*X4)/|V/.*IX? 
T p ( A) ,i.F . .01 .amp. a? .1 .f . .n) ) r.n in 
,.oi) Of* in ’o 
. .ni ) op m 35 


IF ( A) .I F. 
TF( A7.I.F , 
f:n in 


C ******* 

f r ASF 

r ******** 


wmfn 


stops 


3 API 

t****s 


SHFR76M0 
SHFR7690 
SHF K? 7 00 
SHFR? 710 
SHFR? 7? O 
SHFR? 7 30 
SHFR? 740 
SHFR? 7 50 
SHFR? 760 
SHFR? 770 
SHFK77HO 
SHFR? 790 

X34.LT.. 01 .PR.X47.0] . .01 ) 00 TO 7006 SHFR? MOO 

SHFR? Hill 
SHFK7R70 
SHFR? R 40 

************************** ********** H F R ? P 4 M 

SHFR? H 60 
!:*****c;HFR? R60 
SHPR7H70 
SHFR7MRO 
SHFR? M9I) 
SHFR ? WOO 

snpp?u 1 n 

SHFR? y?p 

!• * * * * * * * * ****** * * * ******************** S H F P ? 1 1 -U 1 

P A P A 1. 1 FI. SMf-R?H40 

¥ * S' =? Z * * * * * * * * * * * * * ********************* v, h F R 7 H 6 O 


************************* 


■X ? )+Y4* 

/. r» 
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■*0 YP=X?*Y?*Y4/( Y?*X4-Y4*( X3-X?) ) 

PI = Y P- V \ 

P?s YP-Y 7 
P3=YP-Y3 
p^=YP-Y4 

XP=X?*Y3*X4/l Y3*X4-Y4*l X3-X?) ) 

AA=IX?-XP)/YP 

r.c=( xi-xp>/yp 

H=Pl«P?»ARFA/{ p?*p4«?,p*i; ) 

Hstt+H*( AA*AA + AA*r.OCC*CC ) /t 1 ,5*( l.O+GG) ) 
on in 4ft 

£*************************************************: 

r r . asp whfm s i of s 7 amo 4 arf parallfl 

P******* ********** ******* *************** ********** 
3R nO=-0 # 4* I X4/Y4+ I X3-X? ) /Y? ) 

X0=X4-( X3-X4 )*Y4/{ Y3-Y4 ) 

ao= j .n/nsoRi i 1 ,n+nn*nn> 

Pi={ xn-xi-Yi*nn)*Ar> 
p?= ( xn-y?-Y?*nn)*An 
P3=( yn-x3-Y3*nn jsaii 
p4= f xn-X4-Y4*nn»*An 
rr=( 1 x 0 - x4 }*nn+V4 ) /( xo-x4-Y4*nn> 

H=P] #P?*ARFA/ I P3*p4*?.n*G) 

MeH+H*( R R*RR+RR *00 + 00 *Dm /( 1 .5*1 1 ,0+Rfi) ) 
on in 4ft 


SHFRPSfto 
SHFR7970 
SHFR?9«n 
SHFRP990 
SHFR 3000 
Shfr' 301 n 
SHFR 30? 0 
shfr.303o 
SMFR3040 
shfr3050 

SHFR30ft0 

****************** ***$HFR 3070 
SHFR30M0 

SHF R 3 1 00 
SMFR31 10 
SHFR3170 
SHFR3130 
SHFR3140 
SHFR 31 50 
S H F R 3 ] ft 0 
SHFR 31 70 
SHFR31 HO 
SHFR3190 
SHFK3PO0 


f t ********* ******* * *** ************* ****** ********************** **********$HFR .3? 10 


C PARAl.LFI.nORAM CASF 

f ;***********#*****#******#**************** ********=£******: 

40 Plsl.O 
P?-l 
P?=l ,o 
P4=l.O 

nn=-O.R*f X4/Y4+IX3-X71/Y3+I Y3-Y4 ) / I X3-X4 ) ) 

hso # r*arfa4( i ,o+? .o*nr>*nn/( 1 ,n+oo i > /o 

on in 4^ 

£************************************£** ****::{:***********>!«: 

c r asf whfm wn pakai.i.fi. siofs arf prfsfnt 

f********* *****4 ************ ************** ******* * *******: 

44 xn=X4-(XR-X4 )*Y4/( Y3-Y4) 

XP = X?*X4*Y3/| Y3*X4-Y4*( X3-X?l ) 
YP=X?*Y?*Y4/IY?*X4-Y4*(X3-X?) ) 

nis=nsnRi( ixfi-xp )*( xo-xp >+yp*yp ) 

no=(xn-xP)/YP 

pi =yp*i xn-xi -Yi*nni/ni9 

P7=yp*i yn-x?-Y?*i>n )/nj s 

P3=YP*( xn-x3-Y3*nn)/ni s 

p/.s YP4 | yn-X4-Y4*f)rt ) /III S 

cr.snjs/pi-nn 
rmsoi t/pA-r.r 

flA=nis/p?-nn 


SMF«3??0 
************* *ShFR 3? 30 
SHFR3740 
SHFRi? 50 
SHFR3?f»0 
SHFR'i? 70 
SHFR 3?H0 
SHFR3?90 
SHFR3?00 
**##**********SHFR 3310 
SHFR33P0 
**************SHFR3330 
SHF R 3340 
SHFP 3350 
SHF R 3360 
SHFR3370 
SHFR33«0 
SHFR 3390 
SHFR 3400 
SHFR 34 10 
SHFR34V0 
SHFR. 3430 

SHFR 34411 
SHFR 3450 


F=( AA + PP+I AA**3+RR*«? ) l\ *4+0.?* ( AA**4+hU**4 ) ) *111.00 | OARS | AA + HR) ) 
l +( cc+nn+( r.r**3+oo*#3 ) /\ ,5+n. ?*( cc.**5+nn**s) )*i>looi oaksi f.c+no) ) 
7- ( Rp+cc+ ( RR**R+r.r**R ) / i « 4+n. ?$ i im**4+r.r *#s ) ) *m_0M oaksi rk+oc ) ) 
3-{ nn + AA + l 00* *3 + A A** 3 ) / 1 ,'i + O. 7*( 01)** 4 + A A*- 5 ) ) *lll.ni; | I ) AR S (00+ A A ) ) 
4+p # i * 1 1 AA*AA-r.r.*rr. )# < RR* Jt 3-nn**3 > + 1 KK*KK-no*ni)) * i aa**’-*-lC-* 3 ) i 
IA A— Of. )*{ HH**4-nn*44) + ( KR-nn )*( A A-*4-f.{.-*4 ) } 
FsF*P1*P?#PR*P4*0,5/ ml S*I 1 I S) 


S H F R 3 4 ft ( • 
SHFR .34 70 
SHFR 34>U) 
SHFR 34 90 
SHF R 3500 
SHFR 3 5 1 O 
SHFR35PO 


HsO, R*Pl *P7*( ARF A + 4 .0*1 F-ARF A / } . 4 ) /( J . D + Mi ) ) / ( P3* P4*0 ) SHFR 34 30 

f ****** ******** ***************************** ********************* *****SHFR 3440 
r. OFVFLOP I INI T r SMFFMFSS MATRIX SHFR3550 
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f$**ft$* $*$**:<• $**$*******^*1*^*# *****$*$#*$**# *********** ***************$ HFR 3SA0 


4A OFn^nSORTl X3*X3+Y3*Y3) 

nF?4=n$0Rl ( (X4-X?)*( X4-X?)+Y4*Y4) 

m( i )=x3/ofi3 

Ilt7 )=fX4-X?)/nF?4 

\/( i )=Y3/nFn 

V I ? )=Y4/0F?4 

no 47 T =^,4 

IK T ) =1 1 1 [-?) 

47 V( T ) =V( T-? ) 

0< 1 )=-y?*Y4*l)Fl **0.5/1 X4#Y?-X.3*Y4) 

01 7 )=X?*Y3*nF?4*0.5/( X4*Y3-X3*Y4-x?* ( Y3-Y4) ) 
o ( 3 ) = -n(i ) 
o( 4 )=-n( p) 
nn inn j = i,a 
no inn j = j , | 

01,1= n< t )<-oi,i)*P.S/n 
nn i so »_ = i ,3 

TI n. ) = 1F{|.*1)*IKI )+TF(L,?)«vn ) 

ISO T.l( U=IK .!)*TM I. *1 »+wf .n*TPIL .?» 
nn 160 f. = 1 *? 
nn i ao NMs l ,3 
! 1=3*1 1 -1 ) + L 
.11 =3*( .1-1 ) +NN 

isn s rn,ji i=7 iiu*t,mnm )* m,i 
inn r.nMTTNUF 

nn i wn i. = i * i ? 
no inn m =i_ , i p 
l ro s f i. ,m ) = SI m,m 


SHFR3570 
SHFR35R0 
shfr3590 
shfr3mio 
Shfr .*1 a l n 
SHFR3A70 
SHFR3S30 
SHFR3f'4f) 
SHFR3A50 
SHFR36M7 
SHFR3A70 
SHFR 36R0 
SHFR3A90 
SHF R 3700 
S H F R 3 7 1 0 
SHF R 37? 0 
SHFR 37 30 
SHF R 3740 
SHFR 37 50 
SHFR 3760 
SHFR 3770 
SHFR37RO 
SHFR 3790 
SHFR3R00 
SHFR 3 RIO 
SHFR3R70 
SHFR 3« 30 
SHFR3H40 


£********************************************************************** *$HFR 3 R 50 
C OFVFI.nP IIMT1 FPRCF (STRFSS) RFCOVFR Y MATRIX SHFR3MA0 


nn ?nn 1 = 1*4 
1 1 =( 1-1 1*3 
SM=-nt 1 j*n 
ST( 1*11 + 1 
S7 ( 1 , 1 1 +? 

3nn st( 1 * n+3 

nn 4on ,1=1 
S T.I = ST( l ,.1 1 
S7 ( ?,.I) = S7J*P1 /P p 
ST( 3 ,.| ) = ST.1*Pl *P?/( P3*P3 ) 

SI { 4, J )=S1,I*P1 *P?/(P4*P4 ) 

Ann STI l • .i)«ST.l*P7/Pl 

f ******* !><! ****** sir * * * ******** * * ****** X: * 

C GRAVITY AMn TMFPTIA I.OADS 


5/H 

>=SN*< M( 1)*TF( 1 ,1)+V( I )*1F( 1,?1» 

) = SW*III( n*lFf?,l) + VU)*FFl?,21) 
)=SM*(|l< I )*TF( 3 *1 )+'/( 1)4 TF ( 3 » ? 1 1 
1? 


SHFR3RR0 
SHFR3R90 
SHFR 3^00 
SHFR3910 
SHFR 3V? 0 
SHFR 39 30 
SHFR 3940 
SHFR 3^50 
SHFR 39 A() 
SHFR3970 
SHF R 39M 0 
SHFR 3990 

* ************************** SHFR 4000 

SHFR 40 1 0 


f ******************* **** ************* ******** **************** *********** $HFR 40? 0 


A 1 =n , C *X?*Y4 
A ? = 0. 9*X?<‘Y3 
A3=APF A-A 1 
A*=APF A-A7 
WTT=RHO/3 .0 
FI = ( AA+A1+AP )*WT1 
F? =( A 1 +A7+A3 )*W f T 
F?= 1 A? + A^ + A4 ) *W7T 

F4 = ( A 3 4- A 4 + A 1 )*MTT 
nn 45n 1=1*3 
XM{ 1 )=F1 
XM{ 1 + ^ )=F? 

XM( 1 + A ) = F 3 


SHFM4O30 

SHFR4OA0 

s w f r 4 n s o 

SHFR 4 OAfl 
SHFR4070 
SHFR40H0 
SHF R 4090 

SHFR 4 1(H) 
SHFR 4 1 1 O 
SHf R 4 1 ?(> 
S M F R 4 1 3(i 
SHF P.4 140 
SHFt»4l St' 
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XM( 1+OJ-F4 



SHFR 4 1 ftp 


nn 4so l = l * 4 



SHFR41 70 


HH=FM|J| U ,1. ) 



SHFR41R0 


P ( I , 1 . ) = HH*F1 



SHFR 41 RO 


p ( 1 + 3 * L I =HU*F? 



SHFP4P00 


P ( I+A*1.)=HH*F3 



SHFR4? 10 

4*;n 

P f J + O f L)=HH4F4 



SHFR 4??0 


nn 4 go 1 . = 1 .4 



SHFR4? 30 


no 4 AO 1=1,4 



SHFR4P40 


TT< T * L ) = 0 • n 



SHFR4? SO 


RFTURM 



SHFR 4? M) 

?no7 

FORMAT! ] X, 1 (IMF PF 

THF 

INTFRIPR ANPl.FS FPR SHFAR PAMFl. NP.='. IS,' 

SHFR 4? 70 


1 IS PR F AT FP THAN 

] RO 

PFGRFFS. ' ) 

SHFR 4? HO 


FMP 



SHFR4790 


SlIRRnilTIMF I1PAMFI. ( AP1.0 , ANF'J « |.P An,NIIMPV ) SHFR4300 

r. nrs jr.M nF shfar pawfi. flfmfnts shfr43?o 

£********** 

D 1 MFM^ J PM AHI.nt NIIMnv') ,AMF’W( NIIMOV ) v |_OAD ( AM IMflV ) SHFR4340 

r.PMMPM/JHNK/ LTt LH«I. • SG ( ?7 1 1 ID VAR, |FX,FRC.ARFA,XlWFkT, SHF R 4 3130 

1 SHFAR, SHr.R, .11 INK 331 ) SHFR4360 

C #### #**$**$ **£***# ******* $***$************:!:** ******* ************* ******CJHFR4?70 

C CHFf.K SHFAR STRFSS SHFR43RO 

p******** ** ************* ********************************************* ***j;hFR 4 ?9 0 


SHFI.^ARSf SP, IS ) ) 

RMAX = SHFI.H/I SHFAR*AHFA ) . 

r ;«*«** **** ****** * ** * *** * **** ** £ ***** * ******* ** ** * 

r CHFf.K Plir.KI.. IMf; 

C ************* ************* *** **** ********* ****** 

IF ( shc.r, i.F.o.o ) r;n in 4 
R = SHF1.W/( SHCR#XIWFRT) 

RsR**P, 33^333 

3 IF [ RM AX *1. 1 . R ) RMAX=R 

P *********** X* ************** ********************** 

C FIII.LY STRFSSFO PFS1PM 

p **************************************** ******** 

4 AA=RMAX* API.IX IDWAR) 

1 F ( AA.L 1 . ANFV'I JPVAR ) ) OP TP f'O 
ANFW( JPVAR ) = A A 
I.PAOI IPVAP )s|. 

*n r.PMT I mi IF 
RFTIIRN 
FMD 


SHFR440P 

SHFR4410 

***********************SHFR44?0 

SHFK4430 

***** ************ ******SHFR 4440 
SHFR4450 
S H F R 44^0 
SHFR4470 
SHFR44HP 

* ********************** SHF R 444 0 
SHFR4500 

*********************** SHFR4S 10 
SHFR4S70 
SHF R 4S 30 
5HFR4S4U 
SHFR4S50 
SHFp4SftO 
SHFR4S70 
SHFR4SR0 
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SI IRR m IT T MF SHFI.I. ( A ,M TOT ) SHFI. 000(1 

fftftftftftft* ft ********* ft* ft ft ft* ftftftftftftftftft ft ft * * * ****** ********************** ******SHF| 0010 

c PLATF/SHFl.L fi.fmfwts shfi.oopo 

G**ft*ft*ft ft ft ft ft ft ft* *ftftft ***** ft* ft* ft ft ******* ft* ft ft ft ft ftftftftftft ft* ******** ********* * * ft * $ MFC 0030 

PIMFMSTnKi A(MTPT) Shflooao 

COMMON /FI. PAR/ N P A R ( 14 ) , NIIMNP • MHAMI1 ,NFL 1 VP * Ml , N? , N? . M4 , NS » M 1 1 T ♦ NF 0SHF1. 0050 
. , MIJM FI. tMlIMOV ,M 1 ,M?*M3,U ,1.« ,MFOn,MR|.fiCK SHFL 0060 

COMMON/ JUNK/ I. T » l_M* L * SC, I ?0 I , S I G 17) , l OV , I F X , FRC * 1 H I CK , SHFI 0070 

1 X1MFRT , TFM ,COMp, SHFAR ,RF TA ,JIIM1( 3?9 J SHFUIOHO 

rnMMPM/iiMTTS/iR, I'*mp. n .1?, 19, i io, in , ii? * r 1 3 shfi 0090 

Ml IMF = NPAR(7) SHFI. 01 00 

K PPF = NP/P ( 5 ) SHFI 0110 

1F( MPAR( I) .FO.ni On TP 500 SHFLO170 

NUMMA7 = MPAR I 3 ) SHFI 0130 

MIIMTC =NPAR( 4 | SHFUUAO 

N6=n5 + niimmp Shfi 0)50 

M7 sMA+NIIMM A T SHFL0160 

MP*M7+NUMMA7 SHFI 01/0 

r,n to ( 1,?) t KnnF shfloiro 

0190 


fftft********** ****** ft ft*** ft *************************************** ft ftftftftfcftft^pi 


C isotropic pi.atf/smfi.l flfmfmts shfi.opoo 

f***ft ******************** ************************************** **ft**ft***5;p,F| 0?10 

l MQsNft+NIIMM A T *MIJM 7C *7 SHFI. OP 70 


MM = NQ— M 1 P f SHFI 0730 

TF(MM.GT.O) CALL FRRPR(MM) SHFL 07 40 

f.Al.L PI.MF1 ( MM1) • MN1) , A(N7 ) , A (N31 , A (N4 ) , A (N5 ) ,A< N*) , AIN7 ) « AtNH ) , SHFI 0?50 
1 N|IMnV f NtlMNP'NIIMF .NIJMMAT •NIIMTCvKOnF ) SHFL 0? 60 

RF TURN SHFI 0770 

F*************** ft ****** ft* ****** ft ****************** *ft*******ft********#***SHFLO? HO 


C PRTHPTRPP fC PI ATF/SHFLL FI.FMFM1S 

C ********************************************************************** 
? CAI.I. MPFl.FM( NPAR f 1 ) , ROOF , 1 4 ) 

RF TURN 

900 WRTTF ( IN, 7007 ) KPOF 
nn Ron mm = i.niimf 

CALL SIR SCI A (Ml ) ,A(N1 ) t A(N3l , NFP ,NIJMI)V , I.L * l.« * 0 ) 

WR TTF( iw ,?nni 1 mm, THICK 
TFT A=RFTA/57. 7957795 
CAsCnM TF T A ) 

SRsS)M(TFTA) 

r. sr=cr*sr 
r.R=r.R*r.R 
sr=sr*sr 
on roo l = 1.7 • i.h 

I F ( L • 0 T • I . T ) HR T TF ( 1 9.7004) 

CALL STPSCI A( Ml ) . A ( N ) ) , A ( M3 ) , MFO »N|IMUV . I. L * LR * 1 ) 

T FC RFTA.MF .0. ) Gfl TP ?0 
nn 30 i = i . a 
30 s T G( ? > = SG( I » 

GO 70 40 


SHFI 0790 
*SHFL 0300 
SHFI 0310 
SHFL 037 0 
SHFI 0?30 
SHFL 0340 
SHFI 0350 
SHFI. 0360 
SHFI 0370 
SHFI. 0 3 WO 
SHFI. 0390 
SHFL 04 00 
SHFI (1410 
SHFLn<t?n 
SHFI 0430 
SHFL 0440 
SHFI 0450 
SHFL 0460 
SHFI 0470 
SHFL 04 H() 
SHFI 0490 


?n nn in 1 = 1 ,4 ,3 

C 1 sSGI J ) * C R + S G I 1 + 1 )*5R 
C7=?.n*SG( i + ? ) *r . sr 

S I GUIs Cl+r.7 

S T G( l + llsC.] -C7 

10 STG( T + ? )= f-sr.1 1 ) + sr;( 1 + 1 ) )*CSH+SG( I+?)*(CR-sw) 

40 WR IT Ff 1 W ,7003 ) I. , ( S 1 G ( 1 ) , I = 1 , 6 ) 

GO in ( 3,4 ) , K P 0 F 

C * * * * * * * * * ft * * ft * * ft ft ft * ft * ft ft * * ft * ft ft * * si ft ft * * * ft * * * * * * ft ft * * ft ft ft ft ft ft * ft ft ft 

C nFSJGM PF T SP T l?PP 1 c Pl.AlF/SMFl.l FI.FMIM1S 


SHFL 0500 
SHFI 0510 
SHFI. 05? (i 
SHFI 0530 
SHF1.0540 
SHFI 0550 
SHFL 0560 
SHFI 0570 
****ft *#**#*: SHFL 0 5 HO 
SHFI 0590 
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Cft#ft£ft*ft*££**££££££ft£££ft**ft«£ft*ftft*£ft 

3 CALL RSHFI.il A (Ml ) , A| M7 ) ,A(M3 ) , 

on tr non 

Cftftft££ft*ft£**£***ftft*££*£«*£ft£ft££ft£££ft 

C OF 5 TOM OF ORTHO TROPIC SHF 1.1. F 

C ftftft ft * ft ft ftftftftft# ft ***** ££**£*££*£*# ft ft ft ft 

4 COM? INI IF 

RPO continuf 

RFTIIRM 

Cftftftftft£ft**£*£***ftft*ftft££ft£ft£££££*ftft££ 
?nm FORMAT! IX,17,F14.4) 

POO? FORMAT {//40H ANALYSIS OF PI.A7F 

i inn flfmfmt flfmfn 

? R C F S // RFMn 

3 mH NIIMRFR THICKMF 

^ NX Y MX X 

FnRMAT( 1 H+,?OX, 17 ,6F1 4 .4 ) 

?004 FORMAT I / J 
FWn 


ft*£ft£*£ftftft£«ftft£#ft*ftftft£ftft££££ftftft##ft£ftSHFL Oft 00 
NIIMDV J SHFI OftlO 

SHFI.OftpO 

*4 ft************************ ftftftft SHFI Oft 30 
FMFNTS SHFI. 0ft40 

4 ft************************** ft******* $HFI Oft 50 

SHFI. OftftO 
SHFI 0670 
SHFI.OftHO 

£*££ft*ft£***ft£ft*ft*ft££*ft«ft#*ft£ftft#*ft££ftSHFI. 06*10 

SHFI. 0700 

/SHFI. I. FLMFMTS .CONSTRN CORE =,?9//SHFI.0710 

T LOAD / MFMRRANF FOSHFI.07P0 

I NO/ TW I ST I MG MRMFNTS / / SHFI. 0730 

SS CONI) N XX NYY SHFI. 0740 

MY Y M X Y / } SHFI 0750 

SHFI. 07ft0 
SHFI 0770 
SHFL 07 BO 


SURROIITIWF PI.ATFK IIHT ,IO,X ,Y,Z ,T,WT,MTC,PMAT ,N|)M0V t NHMNP f NOME , SHFL 0790 
l MMMMAT ,NIIMTC «KPOF ) SHFI 0800 

^£*££ftftft#*£ft£ft£ft£**£ft£**£***ft£*ftft£*ft££ft£***££ft£ftft£££ftftftftftft££*£££ftft£ft£ft£ftSHFL0R10 

C TSPTRPPTC PI.ATF/SHFI.L FLFMFMT S - C . A . FFL I PP A • S SHFI. I ELFMENT SHFL OR? 0 

C NRTF II) PROGRAM INCLUDES TFMP. GRADIENT LRAO VFCTPRS AND STRESSFSSHFL OR 30 

C (p) pppf,R AM IS WRI1TFN FPR GFNFRAI. RR T HPTRPPIC MAT. PRPPFR T I F SHFL OR 40 

C THFSF ARF Nn? IISFD IN THF PRFSFNT PROGRAM SHFL0R50 

£*ft*£*£*£ft££ft*ftft*ftftft£ftft*ftftftft£ftftftft£ft£ft££ftft*ftft£ft£ft£ftft£ft£ftftft££ft*£ftftft£*£ftftftftSf-|FI_OHft() 
IMPLICIT RFAI.*R ( A-H,n-7) SHFL0H70 

RFAL*4 U|.i7,X,Y,?,T,Ul,PMAT,FRC,F4,F5.Fft.RFT SHFI ORBO 

DIMFWSIRN IIWTI NIIMDV) , I D( MHMNP ,ft ) , X( MIIMNP) ,YINIJMNP) ,Z(NIIMNP) , SHFL OR 90 

1 Tf MIIMNP) ,WTINI|MMA1 ) .NTCINUMMAT ) ,PMATfNIIMTC,7,NIJMMAT ) SHFI 0900 

COMMON/. IIINK / SHFI. 09 10 

lTOf 3.3) ,MFN,MTRI, T X ( 4 ) , I F ( 4 ) f PR F SS , 1 FMR , m FMP , EMIJ|. I 5 .4 ) , NSG 1 3 ) , JO, SHFI 09? 0 
Z RHP « R l ( 3 O ) , R ? ( 3 0) tSTlI ft) , S F ? I 6),XXf5),YY(*>) , Z Z I 5 ) ,CM(3*3), SHFL0930 

3 AI.FM?), FF I 1 ft I * ARF A ,J|INl(5ft) SHFI 0940 

COMMON/ FM/|.M{ ?4 ) ,S( 30,30,?) ,P( ?4,4,3 ),XM( 74) ,STI6,30,?1 ,TTIft,4,?) ,SHFL09 50 

1 FM J I ?4fl ) SHFL 0960 

COMMON /COM P l_ / A ( 3,4),P(3,4) ,T1(9,4)«T?(9,4) , r 3 ( 9 , 4 ) .LOCI 3 ,4) , . SHFL OS 70 

1 C0MI7RR) SHFI.O9H0 

COMMON/CONTR/ICK 13 ) ,I.RHCK , I C?( 15 ) SHFI. 0990 

COMMON /| IN | T S / 1 R * I VI * T P * I ] * 1 7 , | ? , I 8 * 1 9 , 1 1 0 , 1 1 1 • 1 1 ? ,113 SHFI 1000 

D IMF MS TON G1 30,30.3), JPFRMQI 4) .SCI ft, ?4) SHFL 1010 

F m 1 1 V A I. fncf (G ,S ),(SC,Rn SHFL10P0 

OATA I PFRMO/7 ,3,4,1/ SHFL 1030 

C CONTROL INFORMATION SHFL 1050 

£ ft * ft ft ft ft ft ft ft * ft ft ft ft ft ft ft ft ft ft ft ft ft * ft ftftft ft ft ft ft ft ft £ ft ft ft ft ft ft ft ft ft ft * £ ft ft ft £ ft ft ft ft ft ft ft * ft ft ft ft ft ft ft ££ ft ft ft S 0F1 ] 06 0 

Nila? SHFI. 1070 

MV=? SHFI ) PRO 

NWrl SHFL 1 090 

NS=ft SHEI } ] 00 

Ml =4 SHFL 1110 

IFX-3 SHP| l 170 

MG=3 SHFI. l MO 

PP S 1=1,3 SHFI 1 1 40 
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s msgi 1 ) = i 


SHFL 115(1 


nTFMP =0. SHFI 1 1 <S 0 

WR TTFI I W *7000 ) NIIMF , NIJMMA T *MIJMTC * KIlOF SHFLU70 

f * * * * * * * * * * * * * * * * * * * £ £ * * * * * * * * * * * * * * * * * * * $ £ * £ * * * Hr * * * * * * * £ £ $ * * * * £ * * * * * * * * S HFI .1 1 R 0 


C RF AD AND PRTNT OF MATFR1A1. PRnPFRTIFS SHFL 1190 

(3## *********** ******** ******** ** * **************** * **********************$HFI.. 1P00 


WR I T F ( jw,?001 ) 
on IP M=l,Wl|MMAT 

RF API I R ♦ 1 OOP ) M ,N m( M ) ,WT( N ) 

I F f N T C. I N ) # F 0 ■ P ) WTf.<M) = J 

V/R I T F < IW«?00?) N,MTC( M) ,W T( M) 


SHF*. 17 10 
SHF1. 1770 
SHFL 17 30 
SHFI 1740 
SHFL 1750 


Wl = MTf. f M ) 

nn 11 T = J * N T 

rfapi ir.ioo?) ipmati i,j,n),j=i,7) 

TF{ PMAT{ T .6,M ) ,|.F .0. » PMAT( I ,6,N) = PMA r< I f 5,M) 

1 F < PMA1 I] ,7tN) .LF.O. ) PMA7I 1 ,7 , N ) =PMA T ( 1 , 5 ,N) *0.577 
11 CONTI Ml IF 

WRI 7F( JW.7P09) IPMAT ( 1 « J«N) • J=1 ,7) 

TFCNT.GT.U WRITFI IW t 700H) { *PMATI I . J*N ) t .1 = 1 ♦ 7) t 1 = 7, NT) 

in r.nwTTNtiF 


SHFI. 1760 
SHFL 17 70 
SHFI. 1780 
SHFL 17 90 
SHFI. 1300 
SHFL 1310 
SHFI 1370 
SHFI. 1330 
SHFI 1340 


£**************** * **** ***** * * * * **** ********************* ** ****** ****SHFL l 3 50 

r. RFAO AMD PRINT OF FI.F*M=NT LOjiP MULTI PL IFRS SHFI 1360 

******* ****************************************************************SHFL1370 


WRllFUW f ?nn6) SHFI 1380 

RFAPI IR, 100? ) ( IFMIII.I 1 t J I * .1- 1 *4 ) t I = 1 ♦ 5 ) SHFL 1390 

WRI1FI I W, 7007) (J, (FMIII. (I ,J), 1 = 1 ,5 I ♦ J=l ,4 ) SHFI. 1 400 

£*************************************************** ************** ******£ HFL 14 l 0 

C RF A 0 amp PRINT OF FI.FMFNT PATA SHFI. 1470 

p ******************************************************* ****************SHFL 14 30 


VtR|lF(fU f 70031 

N=1 

100 RF API T R * 1 00 1 ) IFL* IF , I MAT t INC* ! OV 
I F( I FI. .LT.N) GO TO 600 
T F I INC.FO.O) fNf.nl 
1 F( FRC.FO.O.) FRC = 1 . 

IFI TMA1 ,FO;n) I M A T = 1 

MFN-4 
Np=74 
NTRI=4 
MT = 5 

IFI IFI 4) .NF.OI GO TO 46 
NFNs? 

MP=1 R 
A* T R 1 = 1 
NT = 3 
1 X I 4 ) =0 

46 R HDsW T I I MAT > 

RF T = 8F 1 A 
KK = IMC*( IFI. -AM 
pp 66 1 = 1 , N F N 
46 T xt I ) = !FI I ) — K K 
no 500 NF|.sM v IFI. 

TFMP=0. 

PP 40 1=1,MFN 
.1=1X1 1 ) 

TFMP= 1 FMP + T ( .1 ) 

XXI I ) = XI ,11 
YY( I ) = Y 1 ,1 ) 

40 771 1 ) = 7( .M 

7FMp=7 FMP/MFM 


SHFI 1440 
SHFL 1450 

PRFSS»RFFT, FRCfRFTA SHFI. 1460 

SHFL 1470 
SHFI 1480 
SHFL 1490 
SHFI 1500 
SHFL 1 SI 0 
SHFI. 1570 
SHFL 1530 
SHFI. 1 540 
SHFL 1550 
SHFI 1560 
SHFL 1570 
SHFI. 15R0 
SHFL 1590 
SHFI. 1600 
SHFL 1610 
SHFI 1 6? 0 
SHFL 16 HO 
SHFI 1640 
SHFL 1650 
SHFI 1660 
SHFL 1670 
SHFI 168 0 
SHFL 1690 
SHFI 1 700 
SHFL 1710 
SHFI 1770 
SHFL 1730 
SHFI 1740 
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non £"» n f*> r> 


TF{MFN.MF.4) G fl 70 75 

XXC«»>=0.75*IXXm + XX(?)+XXI3) + XXC4) ) 
YY( 5) =0 ,75*{ YYC 1 )+YYC?1+YYC31+YYC4) ) 
77C5)=0.75*IZZC1 )+ZZC?)+Z7 (31+77(4) ) 


SUFI. 

SHF1. 

SHF!. 

SHFI. 


1750 
1760 
17 70 
17«0 


r*************ft*#***ft***ft***********************************************SHFL1790 

C JMTFRPniAlF MATFRTAl. PRPPFRT1FS FOR AVFRAGF FLFMRN1 TFMPFRA1URE SHFI 1H00 

f, ************* **************************#*******************************SHFL1R10 


CALL fNTFRP i PMA7,FF ,NllMTC»NI»MMA*l ,7 ,6,NTC ( IMAT ) , I MA T ♦ TFMP ) 

SHFI. 1 R7 0 

TFMP=TFMP-RFFT 

SHFL 1R 30 

ALFAH ) =FF 1 ? ) 

SHFI. 1 R40 

AI.FAl 7 )=FF( 3 ) 

SHFL 1850 

AL F A ( 3 ) =0 . 

SHFI. 1R60 

r.ONsFFI n / Cl .n-FF( 7)*FFI 7M 

SHFI. 1R 70 

run, l )=cnw 

SHFI. J RRO 

CMC l ,7 )=CON*FF( 7 ) 

SHFL IP90 

CMC?, 1 )=CMf 1 ,? ) 

SHFI 1900 

CMC 7,7 j=cnw 

SHFI. 1910 

CMC 3.3) =FFI 1 )*0, 5/(1 .0+FFC7M 

SHFI 1970 

CMC l ,3 1 = 0. 

SHFL 1930 

CMC ? f 3 )=0. 

SHFI. 1940 

CM( 3,1 ) = n. 

SHFL 1950 

CMC 3,?)=n. 

SHFI 1960 

F4sFF( 4 ) 

SHFL 1970 

FS = FF C 5 ) 

SHFI. 19R0 

F6 = FFC 6) 

SHFI. 1990 


£*********************** ft* **********************************************SHFI_ 7 000 

C COMPUTE DIRECTION COSINE MATRIX TO OF LOCAL EI.FMFNT SYSTFM SHFL7010 

£*********************************** ft ****** ft* *************************** SHFI. 7 070 
CALL nncns ( ntr i , xx ,yy ,77 , to ) ShfL?03o 

****************************************** *****************************SHFI_ 7 040 

COMPIJTF niRFCTfON COSINES OF LOCAL TR I ANGI.F SYSTFM SHFL7O50 

AMO THF TRTANGLF PR0JFC1IPNS A,P ONIO IT SHFI. 7060 

*************************************************** ft*** ft* ft********ft****SHFL 70 70 
no 700 1 = 1 , NTR I SHFI. ? ORO 

NT =1 SHFI. 7090 

M?=IPFRMO(Nn S«FI 7100 

I.OCI l«n=Nl*6 -6 SHFI.? I in 

I.OC (7,I)= N?*6-6 SHFI. 7 17 0 

LOCI 3 t T ) =N3*6-6 SHFI. 7 130 

700 CALL TDCnsm f N?,N3*XX f YY.7Z.AI1 t M *B ( l , 1) . T1 (1 , II , T2 ( 1 * I ) , 1 3 < 1 , I) SHFL 7 1 40 
l ♦ TO, NTR I I SHFI. 7 I 50 

*********** A*********** ** ************ ft*** ****************************** SHFI. 7160 

FHRM SHFI.L RLORAL STIFFNFSS MATR I X * M A S S MATR I X,s TRFSS7I>! SPLACFMENTSHEL7170 

FORM SHFI.L FI.FMFNT MMRJCFS SHF)?1«() 

f ** ***************************************************************** ****SHFL?1 90 
ARF A = 0 , SHFI. 7700 

CALL OTSHFl. (NO, NS) SHFL77 10 

£****** *****************************************************************5HF| 7770 

C FORM |.M ARRAY SHFI.?? 30 

C ********************************************************** ft************SHFI 7 740 
00 410 ]=1,NFN SHFL 77 50 

,i sft* I -6 SHFI 7760 

L = T X ( T I SHFI. 77 70 

no 410 K= 1 ,6 SHFI 7 7 RO 

410 I.Mf ,|+K 1= IOC I. .K ) SHFI. 77 90 

I IWT ( inv ) = IIW1 { I fW ) + Ap F A *PHO*FP C SHFI 7 300 

TF( LRHCK ,nF .O.AMn.NTRI .F0.4 ) CAI.L SH??71 CSC, SCI, 1,?)) SHFI.7U0 

r ************ ********* * ************************************************* S HF1. 7 37 O 

c CflMPIITF RAN/) WIDTH AND W P 1 TP Fl.FMf.MT |NFI«. PM TAPFS SHFI.PAAO 

C ************** *********** ** ft ******************************* *#**#*#*****SHF| 7 340 
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I 


MN = NI)*NP*N1I SHFL?350 

CALL RFARANI S, S,30,30,? ,Nn, Nn.,N1l ,NN ) SHFI. ? 3*0 

WM=MS*Nn*NU SHFL?370 

CAI.I. RFAR AN! STtST,*, ?0 , ? * MS ,Nn, Nil , MN ) ' SHFI?3R0 

Nw=Mn*A*wv Shr.?390 

Cfll.L RF ARAN! P, P, ?'* * 4 , 3 t MO, 4 , MW , NN) $HFI 7400 

CALI. CALR6N( WOT F * 1.M , S , P , S T , T T «MI) , N V , MS » NO , NW , I DV , I FX , FRf. ) SHFL24J0 

WRMFIIP) M!,F4,FS,Ff,RFT SHF| ? 4?0 

I fc i . ruck .F o.o) r,n rn *5o shfl?43o 

('** 5 }r* : <i;*#*#*s.t>*:**#«***«> l , : «** 3 f'^*s: { #****i:c****#*^#s!««*»c«**«#**«**«:##^*«**3Mt*>S:sj!#*SHF» ? AAO 
c COMpllTF UNIT GFOMFTRIC S T I F F N F S S MATRICFS SHFl.?450 

CALL SHFLfilC SCtTn.NTRTI SHFL?4 70 

MM=ND*Nn*MG SHFI ?4R0 

CALL RFAPAM! G,G,30,30,3 ,wn,Mn,MG,NN ) SHFI.7A90 

CALL F L GSUW ( G , NSG , NO , MG , I 1 ] ) SHFI ?500 

ftFn WR ITF( 1W.7004) mfi. * IX , [MAT , ! nv , PR fss , R FF T , FRC * RE T A, NO I F SHFL?510 

nn aso mmsI'NFN shfi ?5?o 

450 1 Xf MM) = lX( MM ) + ]MC SHFL?530 

SOP CONTIWIIF SHFI- ? 540 

Wr T FL + 1 SHFI.? 550 

\ FI M.LF.MIIMF ) GO TP 1O0 SHFt.?560 

R F TURN SHFI. ? 5 70 

Ann WRTTFI JW,?0p5) M SHFI.?5R0 

STOP SHFI. ? 5^0 

1000 FORMAT ( ? T 5 ,F10.0 ) SHFI?*00 

1 001 FORMAT! R T5 ,4F ) 0.0 ) S H FL ? M 0 

100? FPRMAT f^FlO.O) SHF|.?6?0 

lOOR FORMAT! 7F1O.0) SHFL?630 

?000 FORMAT ! 5 OH] T HJN PLA1F/SHFLL F L E M F N 1 S, // SHFL?*40 

? ??H NIIMRFR OF FI.FMFNTS =, 15 / SHFL?*50 

? ??H NIIMPFR OF MATFR1AI.S = , 15 /, SHFI.?*M1 

4. ?? H Ml IM RF R OF TFMP r.AROS=, I ^ / , SHFL?*70 

5 ??H CONSTRW CPOF =, 15// ) SHFI ?AHO 

?noi FORMAT ( ?AH MATFR1AI. PROPFRTY TARI.F, // SHFL?A90 

1 l ? AH MATFRTAI. NMM OF SPFCIFJC 1FMP YOUNGS POSHFI ?700 

? 1 SSOMS 1 S CPFFFT OF / ALLOWABLE STRESSES SHFL? 7 10 

?-/ / n 7H NIIMRFR TFMP WFIGHT MOOULUS SHFL?7?0 


ARATin THFRM FXPN TFNSI ON CPMPRFSSIPN SHFAR /1SHFL?730 

?00? FORMAT ( ]5 T 1 O, F 1 O. 5 1 SHFI?740 

?O03 FORMAT! /3?H THJM P I. A TF / SHF I. L FLFMFNT OATA. // RH FLFMRNT, 3? X , SHFL?750 
1 RHMATFRT A|.,4X , 7HOF S V AR , 4 X t AHMPR M A L , AX , 9HR F F FR FMf.F ,5X,7HUFS VAR , SHFI. ?7f»0 
,SX t AHRFTA,BX .AHBAMP / SHFL? 7 70 

? 7H MIIMRFR , ?X ♦ AHMOOF-T , ?X . AHMOOF-J, 1 X ,^HMOOF-K , ?X , AHNpnF-L * SHFI?7H0 

3 3X.AHMIIMBFP f 5X , AHNIIM AFR , 4X , RHPR F S SUR F , ?X , 1 1 H 1 F MP FR A Tl IR F , S HFL ? 7 90 

a ?x , rmfractIom, i ax , 5hwi niH /) SHFI ?boo 

?nn4 FORMAT! T5,A jn,?IQ,3X ,4F1 ?.4 ,110) SHFI.? B 10 

?no^ FORMAT MOHOCARIl FOR FLFMFNT |,!5,)4H> IS IN FRROR . , / IX) SHFI.?B?0 

?00A FORMAT! /3HH Fl.FMFMT I.OAT) CASE MML T I Pl_ I FR S* // 1 3H FLFMFNT LPAO, SHFI.?H30 
1 AX , BHPRFSSIIRF , 5X,7H1HFRMA|. , 13X , ?HX- , 1 3X ,?HY- , 1 3X , ?H7-, / SHFI ?H40 

? 13H CASF NIIMBFP ,1 7X ,7HFFFFCTS. 31 3X , l ?H ACC F L FP A T ! ON ) , / )X) SHFL?B50 

?007 FORMAT ! ox* ! 1 , AX , ?F 1 ?. ? , ] 5. * ) SHFI?«M' 

?00R FORMAT! ?AX,F10.3 , IPF) A.S,OPF 10.3, 1 PF 1 A . 5 f 0P3 F 1 4 . ? ) SHFL ?M 70 

?nnn FORMAl f 1M+, ?SX , F )0. 3 , 1 PF 1 4. 5 ,OPF 1 n. 3, 1 PF 1 A. 5, 0P3F 1 A. ? ) SHFI ?RHO 

F Nn SHFI. ? R90 
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■mill mu 


$iMRnni|MF onr.ns (m,x,y, 7 * 7 ) shfi 7900 

f;**a****4<tJ*tft:>$ *$***$*$* <r**fc*#$#* <!**$*£*<! #*££#* * i**:***#* #$*3*1**$ ^^xJt^HFI. 7 9 1 0 

C THIS SHRRfilMINF CPMPIJTFS INF n I PFC T I PN CPSJNFS OF 7HF LOCAL SHFL7970 

C Ft_ FMFWT SYSTFM OF ft Oil ADR II_AfFRft.l(M = 4) hr SINGI.F TR I AMGL F i N= 1 ) SHFI.7930 


IMP!. 

ir.IT RFAI.4A ( A-H.n-Z ) 

SHFI.7950 

njMFMMPN XIS),Y(S),7(9)fT(9l 

SHFI 7 960 

XI = 

xi ? )+x 1 1 i-xi m)-x c u 

SH FI. 7 9 70 

Y 1 = 

Yl?)+Yl? )-Y|M)-Y(t) 

SHFI 79RO 

71 = 

71 7 ) + 7( 3 > - 7 C NI-71 l ) 

SHFI.7990 

X? = 

XI ?)+X(N)— XI] )-Xl?) 

SHFt 3000 

Y7 = 

Y( 3 )+Y(N)-Y( 1 > -Y ( 7) 

SHFI. 30 1 0 

77 = 

7 1 ?)+7 (M )-7 (1 )-7t7) 

SHFf 307 0 

SI = 

y]**p + y 

SHFI. 3030 

r. = 

<X1#X?4-Yl*Y?+71*7? )/S1 

SHFI. 3040 

x? - 

x?-r.*xt 

SHFI. 30 50 

Y? = 

y?-c*yi 

SHFI 3060 

1? = 

7?-r.*7 1 

SHFI. 3070 

s] = psnini si ) 

SHFI. 30R0 

S?=nSPRT( X7#X7+Y?*Y7+7?*7? 1 

SHFI. 3090 

X1=XI/S1 

SHFI 3100 

Y1=Y1 /St 

SHFI. 3) 10 

zwi/si 

SHFI 3170 

x7=x?/s? 

SHFI. 3130 

Y?=Y?/5? 

SHFI 3140 

77*7 7/S? 

SHFI. 3150 

7(1) 

= XI 

SHFI 3160 

T( ?) 

= X? 

SHFI. 31 70 

7(3) 

= Y1*7?-Y?*Z1 

SHFI. 31H0 

T( 4) 

= Y 1 

SHFI. 3190 

7(6) 

= Y? 

SHFI 3700 

Tl 6) 

= 7.1*X7-77*Xt 

SHFI. 3? 10 

7(7 ) 

= 71 

S^FI. 3770 

Tl R) 

= 77 

SHFL 37 30 

7(Q) 

= X1*Y7-X7*Y1 

SHFI 3740 

RFTURM 

SHFI. 3? 50 

FMn 


SHFI 3760 


SIIRROMTIMF Tnr.flSt Ml v n?,N 3«X ,Y,7 ,A,R.Tl.T?.T3,TtNTRl) SHFL 3? 70 

£ #*###**#*&$* **$*$*#* 37 «0 


- 

C 

- — THIS SHOP. HUT IMF C.nMPilTFS IMF OIRFCTIPN CPSJMFS OF THF 

LOCAL 

SHFL 37 90 

_ 

C 

SYS1FM AMP 7HF PRPJFCTFO OIMFNSIPNS "F A SI IR 1 R I ANGL F 

CPMPPMFMT 

SHFI 3300 

“ 

f*<r. ■>***>>**#*******ft*=>#**^»***#<«******«»!>>(»«>f!««4' »*#**#»**«**SHFI. 3310 



TMPi.rr.i7 rf ai. *r (A-H.n-7) 


SHFI 3370 



niMFMSIPM XI 5 ) t Y( 5) t 7 1 6 ) « A l 3 ) f P( 3)* Tl (9) * T7 1 9 ) « T3 1 9 ) , 

Tl 9 ) 

SHFL 3330 



At = XI Ml )-XIM3) 


SHFI 3340 

- 


R 1 = Y( Ml ) -YIN3 ) 


SHFI. 3 350 

_ 


f] =7IM1)-7(M?) 


SHFI 3?m> 



A? = XI M? ) -XI M3 ) 


SHFI. 33 70 

z 


R? = Y(M?)-Y(M3) 


SHFI 33R0 



C 7 = 71 m?) -71 M3) 


SHFI. 3390 

= 


1FIM7RT.F0.4) GP TP 300 


SHFI 3400 



on 3RP 1 =1 ,3 


SHFL 34)0 



711 J ) = 1 1 1 *3-7 ) 


SHFI 34?0 

= 


Tl ( [+3 ) = T1 1 1 ) 


SHFI. 34 30 

- 


1 ] ( ]+A)=7 111) 


SHFI 3440 



T?( 1 1 =T( 1*^-1 ) 


SHFI. 3450 


16 'b 


t ?i r + ^ j = tp c r j 
T-21 I + M = T?{ 1 ) 

73( | ) =1 ( T * 3 ) 

71( T+1) = TK 1 ) 

•**0 7?n + 6)=T3< 1 1 
on Tn Aon 

?nn t?i = F]*c?-«?*ci 
737 = Cl *A7 -C7*A 1 
7?1 = A1*R?-A?*R1 
S =nSORT ( Tll’^+T^’^+T^**? ) 

7 3 1 = 711 /S 
71? = 717/5 
7?? = 7 31 AS 

T 1 1 = Til *T( 5 )-T3?*T( n ) 

717 = 7?1 *Tl « >-713*T ( ?) 

Tl 1 = 717*T( ?>-T31*T( 5 ) 

S =nS0RTITl]**7+T1?**?+113**?) 

Tl 1 =T f l /S 
717=717/5 

tii=th/s 

771= 7 J 3*71?-7]?*T11 
T7 7= TU*T11-711*T11 
T?i=T1?*7?l-Tl 1 <*717 
Tin )=T11 
Tl f ?)=1 17 
TUI ) = T 1 1 
77(1 ) = 7 71 
T7( 7 ) = 77 7 
77 ( 1 1 =7 71 
Tl( 1 )=T11 
1 ? ( 7 > = 7?7 
TU 1 )=T11 
nn jnn 1=1,3 
.1 = 1+1 
k= r+6 

TU .1 ) =T1( I ) 

7 7 ( J)*7?( 1 ) 
ti ( j i=Tif n 
f.I = Kl] 

C,1 = T( .)) 

CK=7fK > 

Tl f K I »T1 1*C ! + T17*C.I+Tll*CK 
77 f K ) = 7 71 #C T + T?7*C,I+ 77?*f.K 
inn T1(K ) =T1 1*0 I -*■ T 1 7 *0 . I + T 1 1 *0 K 
Aon Ml): -71 m*A7-Tl ( ? 1*R7-T1 I? )*C? 
A( 7 1 = TU n*Al + TH ?)*Rl + TU 3)*C1 
A ( 1 )= -A( ] ) — A ( ? ) 

R( 1 ) = T7( 1 ) * A7+ T 7( 7)*R?+T?( 1)*C? 

R ( 7 1 = -77(1 )*Al-77( 7 )*ni-T7 ( 1 )*C1 
R( 1 ) =-R( 1 ) — R( 7 ) 

PF7IIRW 

fmp 


SHFI 14/SO 
SHFL 3470 

SHFI 14R0 
SHFL 34 90 
SHFI 1500 
SHFI. 3510 
SHFI .157 0 
SHFI. 3 530 
SHFI 3540 
SHFI. 3550 
SHFI 1560 
SHFL 35 70 
SHFI 15H0 
SHFI. 3590 
SHFI 1600 
SHFL 36 10 
SHFI. 1670 
SHFL 3630 
SHFI. 3640 
SHFL 36 50 
SHFI 3660 
SHFL 3670 
SHFI. 3680 
SHFL 3690 
SHFI 3700 
SHFL 3 7 10 
SHFI 1770 
SHFI. 3730 
SHFI. 3740 
SHFL 3750 
SHFI 3760 
SHFL 3770 
SHFI 37 HO 
SHFL3790 
SHFI. 3800 
SHFL 3R 10 
SHFI 3870 
SHFL 3 RIO 
SHFI. 3840 
SHFL 3850 
SHFI. 3860 
SHFI. 38 70 
SHFI 3880 
SHFL 38 90 
SHFI 390(1 
SHFL 39 10 
SHFI 3970 
SHFL 39 30 
SHFI 3940 
SHFL 3950 
SHFI 3960 
SHFL 39 70 
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••■'-23 


SimRPinjNF DTSHFI. (Wn,NS) SHFI 

C THI S SIIRRPUTINF FVAI.UA7FS SHFI 


ST1FFNFSS MATRIX SHB. 

STKFSS/HF SPLAf.FMFNT 1 K AN.SFORMA T ION MATRIX SHFI. 

NODAL FORCF V/FCTPP DUF TP D I STR I RMTFD LATERAL l.nAPSHFL 

NPpAI. FORCF VFCTPR 111 IF IP 1HFRMAL STRAINS SHFI. 

STRFSS CORRECTION MATRIX DUF TP THFRMAL STRAINS SHFI. 
AMP MASS MATRIX SHFI. 

OF A SHALLOW OHAPR p.ATFR Al_ SHFLI. ELEMENT ASSFMBI.FP WITH FOUR FI. A T SHFI. 
TR T A W G|.FS OP PF A SIMGI.F TRIANGULAR SHFI.L Fl.FMFWl SHF|. 

-SI r UNIT ST1FFMFSS PRDPOR T I ON A|. TP TH1CKNFSS SHFL 

(nilF TP MFMRRANF ACTION) SHFI 

I JM IT STIFFNFSS PROPORTIONAL to ( THIf.KNFSSJ**3 SHFL 

inilF TO BFNniMp ACTION) SHFI 

: IJM ] T MnnAL FORCF VFCTOR PROPORTIONAL TP THI CKNF SS SHFI. 

imiF to gravity loads -point loads only computed , shfi 

AND DUF TP MF AN TFMPFR A TUR F DIFFFRFNCF ) SHFI. 

UNIT NPPAL FORCF VFCTOR and f$ CONSTANT SHFI 

I DUF TO NORMAL PRFSSPRF LPAnS-UJMPFD LOADS ONLY CPMPPTFD ) SHFI. 

UNIT NnnAI. FPRCF VFCTOR PROPORTIONAL TO (TH I CKNF SS I SHFI 

(DUF TOTFMPFRATHRF GRADIFNT ACROSS TH ICKNF SS ) SHFI. 

MASS MATRIX PROPORTIONAL TO TH ICKNF SS -LUMPED MASSFS ONLY SHFL 
UNIT STRFSS MATRIX PROPORTIONAL TO TH I CKNF SS SHFI. 

I DUF TO MFMRRANF ACTION) SHFI 

UNIT STRFSS MATRIX PROPORTIONAL TP I THI CKNF SS ) **3 SHFL 

f ni IF TP RFMniNG ACTION) SHFI 

UNIT STRFSS CORRECTION VFCTOR PROPORTIONAL TO THICKNFSS SHFL 

InilF TO MF AN TFMPFRATPRF DJFFFRENCF - MFMRRANF STRFSSFS) SHF| 

STRFSS CORRFCT TON VFCTnp PROPORTIONAL TP I THI CKNF SS ) **3 SHFL 
IDMF TO tfmpfraturf gradifmt ACROSS 1HICKNESS) SHFI 

C***$*$*£#$*S*i***$*#JS(:fc****#<:*:e£#fc**#*###*S<:$3$$>i<!?*$4*$:iE$$***$**#*****#**SHFL 
IMPLICIT RFAL*P (A-H # n-7) SHFL 

COMMON/. IIIAJK/ SHFI. 

1 TO C 3,3) ,NFN,MTRI ,IX(4>,IF{4> , PR F SS . TF Mp , m FMP , FMUL ( 5 * 4 ) * NSC ( 3 ) ». IU» SHFL 

2 RHP ,Rinn),R?nn|,STUAI,ST?(M.X 15), Y 15), z I 5 ) ,C.M I 3 * 3 ) , SHFL 

? A|.FA(?), FF f 1 A ) , ARF A ,JIIN1(56) SHFI. 

COMMON/COMPL/AI 3 , A ) , R ( 3, A) ,T1I9,A),T?I9,4) » T3 ( 9 * 4 ) , LOCI 3, A) SHFL 

1,ARFAT,SMT(?) ,RMT( 3) ,COM(?R|) SHFI 

CPMMON/FM/LMI 24) , SI ( 30,30) *S?( 30,30), PI (24,4) ,P2I 24,4) ,P3 124,4), SHFL 
lXM(?4),SAl(f.,30),Srt?lfc,30),TU(iS,M,71?IO.4),F1(9),CTl3,9),ST 19,9) SHFI 


-S2 


-PI 


-P? 


-P? 


-XM 

-SA1 


-SA2 


-TT) 


-TT? 


39H0 
3990 
AOOO 
4010 
407 0 
AO 30 
AOAO 
AO 50 
4060 
AO 70 
40HP 
A090 
A I 00 
A 1 10 
A I ?0 
Al 30 
A1A0 
A 150 
A 160 
A170 
A1R0 
A 190 
A200 
A2 10 
A220 
42 30 
4240 

42 50 
4260 
A? 70 
4? HO 
4290 
4300 
4310 
A 3? O 
4330 
4340 
4350 
4360 

43 70 
43H0 


1 

i .FMiini) 

SHFL 4390 


niMFMSIPM FMM(2700) 

SHFI 4400 


FOIIIVAI.FMCF IFMM,SJ) 

SHFI. 441() 


wr,= i.0 

SHFI. 4420 


IFINTRI.FO.A) WG=n.?5 

SHFL 44 30 


OP 60 1=1 ,7700 

SHFI 4440 

50 

FMM( T ) =0 . 

SHFL 4450 


nn 6i i=i ,^n 

SHFI 4460 


c 

II 

or 

SHFL 4470 


R?l I )=n. 

SHFI 4480 

C * *$ $ $ # * * * £ * fc * # S S # *£*:!: <<**:*£* = * ***»***£$*$#$**<:*#£* 

$$X*>S£$fcfc*:*4*>!:X:#$:SSHFL 4490 

c — 

-TMFRMAI. S1PFSS CnKRFC.TIPN MATRIX 

SHFI. 4500 


m = nTFMp/l?, SHFI 4520 

nn 160 1=1,3 SHFL 4530 

f.C = r.Mf 1,1 ) * A I. F A I ) )+C M ( I ,2)*ALFA( 2) + CM( [ , 3 ) *ALFA I 3 I SHFI 4540 

5M T( 1 ) =:-r.C*TFMP SHFI.4550 

HMT(l) =-CC*nT SHFI 4560 

nn 1 60 .1 = 1 , A SHFI. 45 70 
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Til ( 1 ) = SMT ( 1 1 *FMI H I 7 , I SHFI AFHd 

IFn T15t l+^,.ll=RMTl l Z ,.H SHFi.<,sqn 

f$##*<r*»!;:fr*>***$fcfc***#:>**** ****$*$#**£$* SHFI 4600 

C— 7 — i.nnp nvpp thf ntri trtamgi.f comppmfnts shfi_461o 

c ********>>#**##****#*******:!:*>}:*««**#***<:**#**# a*##*** « Xs*** «#»**« =>*****❖* SHFI 46? 0 

nn 7on nt = i,mtrt Shfi.46.30 

C *$»J^#*******«sS *****#****#**##**********£#$*****$*#*:*#*$****#£#**$*#***:!« SHFI 464 0 
c FORM MASS MATRIX AMO MORAL FOR f.F VFC.TOR 01 IF TO NORMAL PR F SSMRF SHFI.4650 


c. 

AMO GRAMMY I.PAOS JM GI.PRAI. COHR 0 f W A 1 F <; 

SHFI 4660 

C *************************** tf********************************* 

**********SHFL4670 


ARFA1= 1 AC?, NT }*R(?,M1 )-AC?i Ml )*Hf 3,M1 ) )*0.5 

SHFI 46R0 


APFA=ARFA+ARFAT 

SHFL 4690 


JF(M1R I .FP. J ) GP TP ?4S 

SHFI 4700 


FAC=ARFAT*PRFSS*O.S 

SHFI. 47 10 


XMM=APF AT*RHO *0,5 

SHFI 47? 0 


on 340 1 = 1 ,? 

SHFI. 4730 


K=i.r»c{ i ,mi ) 

SHFI 4740 


nn 740 .1 = 1 ,7 

Shfi. 4750 


K =K + 1 

SHFI 4760 


nn 741 i. = 1 ,4 

S H FI. 4 7 70 


P)IKtl.)=P|(K,l )4XMM*FMII|. I tl+7,1. ) 

SHFI 4780 

741 

P?( K ,1. ) = P?( K *L)+FAC#FMIIU 1 ,1. )*T7( ,I*NT) 

SHFL 4790 

*40 

X«(K )=XM( K l+XMM 

SHFI 4H00 


on Tn 7 so 

SHFI.4H10 

* 4 S 

FAC=ARFAT*PRFSS/3. 

SHFI 4 8? 0 


XMM=ARF AT*PHP /7 , 

SHFI.4R 30 


nn 76n 1 = 1,7 

SHFI 4B40 


K=i.nf.( i , m t ) 

SHFL 48 50 


nn 360 ,r=l,7 

SHFI 4860 


K =K+ ] 

SHFL 4 R 70 


nn ?m l= i ,a 

SHFI 4880 


PUKiU = Pl{K,l. |+XMM*FM»IL! .»+?*».) 

SHFL 4890 

*61 

P?(K,L )=P?(K ,L )4FAr.«FMIILU tL 1*17I,|,M1 ) 

SHFI 4900 

760 

XM ( K 1 = X M ( K ) +XMM 

SHFI. 49 1 0 


***#*$*#*$$*£**$#**## 4 9 ? 0 


c MFMRHANF CONTRIBUTION SHFL4930 

C *«$**£* *»>£* $****>> <1 >it « * <s ^ « « « Sit « >*: « <t <r <; HP | 4940 


750 CALL SLST ( CM ,F T . C T , S T »N T ) SHFL 4950 

C >jt $ #>!< *$$*$***>;:<: fc #*##*>> * $ £ £ * # $ * £ # 4 #« * $#£>!<:!!$<:*>(« $ £ $ $ # £ * SH F I 496 0 

c rnORMINATF TRAMSFPRMATI on OF TRAINPI.F FLFMFMT MFMRRANF ST1FFNFSS SHFL4970 

f ***** * * ************* ***************** ********************************** SHFI 498 0 


i.T=n 

no 4oo jjs] ,7 
.! = .1.1 + .1.1 
m = i.nc i,i v i v mi ) 
no 4on i. = i ,3 
M = M + 1 

I. T =L T + 1 

f.i = inn,MT) 

C? = T?( LT.NTI 
KT=0 

no 7on i t = i , ,i.i 
T = f I + U 


SHFI. 4990 
SHFI 5000 
SHFI. SO 10 
SHFI. S0?() 
SHFI. SO 30 
SHFI S 040 
SHFI. SO 50 
SHFI S060 
SHFL SO 70 

SHFI SOHO 

SHFL S090 
SHFI SI 00 


KK =3 

IF (11. FO. ,|,i J KK = I 

HI = ST( 1-1 * .1-1 ) *0 1 + S T( I - 1 « .1) -C? 

h? = sin •.»-i)*ci + sin .,u*r? 
m = i.nr.| u .m 1 1 

pH 790 K=1,KK 


SHFI. S| LO 

shfi s j?n 

SHFI. SI .30 
SHFI SI 40 
SHFI. SI SO 
SHFI SI Ml 


M s M + t 


SHFI. S| 70 
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KT-KT+1 SHFI 5180 

S0= St(N,M)+T1< KT,NT)*H1+T?( KT,NT)#H? SHFL5190 

SlfM f M)=SO shfi. 5700 

390 Sl(M,N)=SO SHFI. 5710 

AOO COM 7 1 Nf IF SHFI 5770 

C CPORniMAlF 1RAMSFPRMATI ON PF STPFSS MATRIX AND 1HFRMAL LPA{) VFf. TOR SHFI. 5740 

PP 4|0 JJ=It3 SHFL 5760 

M=I.PC( JJ,NT) SHFI. *>7 70 

,l=,iJ+J0 SHFI 5780 

nn 4| n ». = 1.3 SHFi. 5? wo 

C1 = THL,NTI SHFI. 5300 

C7 = T7(I. # NT) SHFI. 5310 

M = M+l . SHFI 5370 

Rl( M )=R|{ M l+f.l *FT(J-n+C7 *FT(.I) SHFL5330 

OP 410 K-l ,3 SHFI 5340 

4 1 0 SA1(K,M)=SA1U,M)+(CT(K,J-1)*C1 +CT(K,J)*C7 )*VG SHFI. 5350 

(;**$**£$**** **«***!>**:**$ *****#*******<.***** *#tr***3i<c**^«^^«*J(t****«*t***#«SHFI 5 360 

C PI. ATF RFWniNG CONTRIBUTION SHFL 5370 

£**$***$**$************«#**$*$*>»*#**#$<::****$***$** $$$*##*«**:^* ***#$***$ $HFI 5 380 
CALL SLCCT C CM ,F T ,CT » ST *NT ,NTR I ) SHFI. 5390 

C *#<!* *#***#*# £ it *##** #*$*** $**:>!« $*$**<:* **:#*$*** fr*#*#******^* <•.*$$$$*$£$$## SHFL 5400 

C CPPRO I N A TF TRANSFORMATION of TRIAMGLF ELEMENT bending ST1FFNFSS SHFL 5410 

C #«****$****:<:*:{:**** *«*««*£****$##***** $$******$*$**$* *#«**-:«***# $*#**$*:*ShFI 5 47 0 
CALL SHI.CTK S7,ST,T1,T7tT3,LOC,NT) SHFI. 54 30 

£****** **$«*#*********£:)> «4 ££***££«* #$**#*##$**$#*$#***:*$**$******#****** SHFI. 5440 

C COORDINATE TRANSFORMATION PF MOMENT P F SUL T ANT MATRIX ANO SHFL5450 

C THFRMAL LOAD VFCTPR SHFI 5460 

£ f. ****4>Jl 4*44 44 4444444444444*< r $*4 444 4 ££444444 ££££££ £££££4 £44 44 ££££££ 4 S H FI. 5470 

OP 680 J.»=l«3 SHFI. 54fi() 

Mal.nCI J,» ,N T I SHFI. 54/30 

JslJ.i-l }*?+! SHFI. 55*00 

on 6R6 l. = l *3 SHFL 5510 

M = M+l SHFI 5570 

C 3 = T 3 { L f N T ) SHFL 5530 

P?f M)=R?(M)+FT( J)*C3 SHFI 5540 

DP 6R6 K = 1 1 3 SHFL 5550 

686 SA7 (K + ?,M ) = SA?IK + 3,M )+Cl (K , .1 )*C?*WG SHFI. 5560 

nn 680 L = 1 .3 SHFI. 5570 

M = M + 1 SHFI. 5580 

ClaTKLfNT) SHFL 5590 

C7 = T7IL,MT ) SHFI. 5600 

R?t M |=R7( M )+FT( .1+1 )*C1 +ET(.I+?)*C? SHFL 5M0 

nn 680 K=! ,3 SHFI 5670 

6Bn SA?( K + 3,M)=SA?C K + 3,M)+( CTC K,.l+1 ) *C 1+C T I K * .1+ 7 ) *C7 ) *WG SHFI. 56 30 

700 CONTINUE SHFI 5640 

TFf MTff I .FO.l ) GP TP 900 SHFL 5m 50 

£*4#44444444#*4#*S444 4 4444*44*44*44*4444444444444**444*444444*4444444444 $HF| 5660 

C r.HFCK Fnp pnSSJRLF IN1FRNAL STIFF NFSS SINGULARITY (FLAT SHFL 5670 

n PR NEARLY FLAT nilAnK II.ATFRAI. ) and TRANSFORM STIFFNFSS A1 5 * 1H NPDFSMFI 568(1 

C TO GLORAI. COOROIWATFS SHFI. 5690 

C**44 ft*************** 4*44*4*4**44 >>*5*-: **44444*4*44*4444****4444 4*4**444 4$HFI 5700 

TF( Si ( ?7,77) ,GT.( SI ( 75,75 ) + Sl( 76, 76 ))*1 .0F-07) GP TM 690 SHFL 5710 

OP 6Q1 1=1,77 SHFI 5770 

51(1,771=0.0 SHFL 5730 

691 SI 177,1 )=0.0 SHFI 5740 

690 nn 5 1 n 11 = 1,77 SHF». 5750 

on 5 1 1 ,1=1 ,3 SHFI 5760 

5ii ftc . n=si( t i ,75»* me i ,.i i+si c 1 1 '7M«rii( 7,.n + si ( n ,77i* rn< 3 ,.m shfl 5770 
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no rip ,ir i f 3 
5in SKIT * ,1 + 74 ) =F T( .1) 
nn 5P0 jj=p5,P7 . 
nn 5?i 1 =i ,3 

5?1 Fim = in!l,I)*SI (P5, ,IJ J + ini ?, ! )*S1 (?6, J,t) + Tfl(3, I ) # S 1 ( 2 7 , J J ) 
nn 5?n t = i ,3 
rpo s l ( P4+ 1 ,.i.i)=ft( r ) 
nn 530 t =1 * pa 


SHFI 57RO 
SHFI.5790 
SHFI. 5800 
SHFL 5810 
SHFI.58P0 
SHFI. 5830 
SHFI. 5840 
SHFI. 5850 


530 


nn 5?n j=?5,P7 

S 1 ( J , I > = S1C ! ,.») 

r.AU SHLCTP(S?,Tn,FT,FT (A) ,F 7 17 ) > 


SHFI . 5860 
SHFI. 5870 
SHFI 5 880 




C rnMOFNSAl (PM OF I NTFRMAI. nFGRFFS PF FR FF (IPM SHFI 5900 

f;**){t«********«*^**s::**^**i,‘ts!c***** 4 «**#*>)i>!!***!)t«s>**<:«#«:#******#^«*»>:*### 5 r*#A««SHFL 5910 


r,il.L SHLCM ( 1 , ? , 5 1 t R 1 ,SA1 » S T } ) 
CALL SHI. CD 1 l 4,6,SP,RP,SAp,ST?) 
nn 85i j= l , a 
nn 85i j=i,a 

Til II , J)«7T] I T t ,i ) + ST I ( ! )*FMIJM?,J) 
851 TT?( T , J ) = TTP( 1 , .) ) + ST?( I ) *F Mill. ( P, J ) 
9nn nn asn 1 = 1 ,no 
nn 850 .1 = 1 ,4 

PI ( !,J)=Plf I. JI+R1 ( 1 )*FMIM.( P,J) 

850 P3( I ,.M=RP( I )*FM||| ( p, 

RF TURN 

FMn 


SHFI 59P0 
SHFL 5930 
SHFI. 5940 
SHFI. 5950 
SHFL 5960 
SHFL 5970 
SHFI. 5980 
SHFL 5990 
SHFI. 6000 
SHFt. 6010 
SHFI. 60P 0 
SHFL 60 30 


stiRPPtn tnf shi.cdi r nm,mm, s*r , sa, si i shfi 6040 

T, **«:#*>.■;##******>*:*>{:**** ****<'’fr##*#**^******#*##««***##**«#«(«**#«<:>?<'*«*«###*SHFL 60 50 

C cnwDFNSAI TPN PF IMTFRMAI. OF(iR FF S OF FRFFOPM SHFJ.6060 

f^*##** **>;«******#»!!*** >>**#5!! ***#*4«i{«>!=#***J(!*^*<»#*i;‘*«*»**5!c#«*«***« 4' #*««*^*«*#SHFL 60 70 



IMPLICIT RFAL*R (A-H, P-Z ) 

SHFI. 6080 


n l MFMS T PM S( 30,30) ,R( 30) ,SA( 6,30) ,ST(6) 

SHFL 6090 


nn 850 i = i ,ft 

SHFL 6 100 

850 

ST( I l=n. 

SHFL 61 10 


nn roo j=i,6 

SHFI 61.P0 


i 

c 

C“ 

II 

SHFL 6 130 


M=L + 1 

SHFI 6140 


PI V=S( M ,M ) 

SHFL 6 150 


IFI Ptv.i.F.n) nn m won 

SHFI 6160 


R|.=R( M ) / P I V 

SHFL 61 70 


nn 8?o k=i,l 

SHFI. 6180 


PC K )=R( K )-S< K,M)*RI. 

SHFI. ft 1.90 


5S=SIM,K ) /PI V 

SHFI 6P00 


nn P3o T = 1 ,k 

SHFL 6P 10 

880 

S ( K , I ) s S ( K « I )-S(M, | ) *SS 

SHFI. 6220 


nn Rpn \ =mm ,mm 

SHFL ft? 30 

R 70 

SA (I,K)=SA (T,K)-SA (I,M)*SS 

SHFI 6P40 


nn 810 T=NW,MM 

SHFL 6P 50 

81 n 

STI I ) = ST< I ) — * S A ( T , M ) #R|_ 

SHFI 6P ftO 

800 

CONTI MI IF 

SHFL 6P 70 


on 900 T=?,?4 

SHFI 6PH0 


T 1 = T - 1 

SHFI. ft? 90 


nn qoo j= ) , I) 

SHFI 6300 

QOO 

SC .1, 1 ) = SI I , J) 

SHFL 6310 


RFTHRM 

SHFI 6 32 0 


FMn 

SHFI. ft 3 30 


:.96 



SimROIIlfMF SI.S1 ICf FT*r.l t ST,WT) SHFI. *340 

r*ftft#ft *«**«*#« #ftftftft##ft***##ftftftftftftft *«**#«***« «**«>> ftftftftftftftftft#ftftftftft«ftftft ft ft*ft$HFL 63 50 


C TUTS SlIRROUT IMF FORMS 7 HF S T I F F N F S S MATRIX ,THFRMA 1 . LOAO VFC 1 PR* SHFI .6360 

c AMn STRFSS MATRIX of A CONSTANT STRAIN TRIANGLE SHFL 6370 

fftftft*ftft#ftftftftftftftft*ft#ftft*ftftftftftftftftft#ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft#ftftftft<;HFI. 6 ?R 0 


IMPLICIT RFAL*M (A-H f n-Z) 

njMFNSinN CI3*?)*F7(9)fCT(3«9)«Sl <9,9) 

COMMON /r.nM pl / A( 3 . 4 ),r( 3 , 4 ),TT( 10 ft ) ,LOCI 3 , 4 ) , ARFA , SMTI 3 ) » RMH 3 I 

l C 0 M(?P 1 ) 

fac=o.? 5 /arfa 

FA 01 =O.. 6 /APFA 

Cl l = CI1 *1 I ♦FAC 
C?? - Ct?'?)*FAC. 

C33 = C( 3 , 3 ) *F AC 
Cl? = C ( t • ? ) ♦F AC 
Cl 3 = C( 1 ,3 >*FAf. 

C. ? 3 = C ( ? t -3 ) *F AC 
no ?no ,1*1*3 
L=»*+.i 

A.I = A( . I « N T ) 

RJsRIJ «NT ) 


SHFL *390 
SHF I 6400 
SHFL 64 10 
SHFI. 64 ? O 
SHFL 6430 
SHFI. 6440 
SHFI. 6450 
SHFI. 6460 
SHFI. 6470 
SHFI 6480 
SHFL 6490 
SHFI. 6500 
SHFL 66 10 
SHFI 65?0 
SHFI. 6 530 
SHFI 6540 


r^ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftfti^^ftftftftftftftftftftftftftftftftftftftftftftftftftSHFI. 6550 

C THFRMAL LOAn VECTOR SHFI 6560 

^ftftft*ftftftftftftftftftftftft##ftftftftftftftftftft*ftftft#ftftftftftftft#ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftSHFL65 70 
FT<L-l)=<-RJ *SM7(1)-AJ *SM7|3))*0.5 SHFI.65R0 

FT( L ) = ( -A, I *SMT(?)-HJ *SMT(3))*0.5 SHFL6590 

fftftftftft*ftftftft*ftftftftft#ft*ftftftftftftftftft**ft*ft*ftftftftftftftftftftftftftftftftftftftftft«ftftftftftftftftftft*ftftftftSHFI. 6600 

C STRFSS nTSPLACFMFNT TRANSFORMATION MATRIX SHFL 6610 

C ft#ftft*ftftftftftft*ftftft#*ft##*ftftftft*ftftftftftftft*ftftftftftftftft«ftftftftftft*ftftftftftft#ftft*ftftftft#ftftftftft#SHFI. 66? 0 


HO 300 1=1 ,3 SHFI. 66 30 

0 7 ( I * I. - 1 ) = ir.ll.ll^,' +C ( I » 3 ) *A J )*FAC1 SHFI 6640 

300 CTII.LI = ir,U,?)*AJ +C(I,3KR.I ) ♦ F A C 1 SHFL6650 

f ftftftft*#ftftft*ftftft*ft*ftftft**ftftftft*ftft*ft#ft#ftftftftftftftft#ftft#ftft#ftftft*ftftftftft*ftftftftftftftftftftftft#^HFI 6660 


C STIFF MFSS matrix T« TR I ANGL F LOCAL COOROINfiTFS SHFL 6670 

Cft*ft#ft**ftftftftftftftftft#ftftftftft**#ftftft*#ftft*ft*ft*#ftftftft*ftftftftftft#ft#ftftftftftftftftftftftftftftftftftftftSHFL 66 H 0 


nn ?nn t=i t j 
K = I + I 

A A =A{ I *NT 1 *A.I 
A A I I *N 7 )*RJ 
RR=R( I t MT )*M.I 
R A = R ( I ,M 7 ) * A ,1 
ARA=AR+RA 

SIC K— 1 ,1.-1 )=C1 l#RO+C13*ARA+C33ftAA 
ST( K-l .1. I =T. I ?# R A + C 1 3* RR+C ?3 * A A * f 3 3 ft A R 
S1I KtL-1 >= Cl ?<* A R+C 1 ?*RR + C?3^AA + r.33*«A 
?00 ST(K,L)= C??*AA+C?3*ARA+C33*RR 
no 400 1=3,6 
no 4nn t i=i , i 
4oo SlU*,i)eSlf.M 1 

RFTIIRN 

FN 0 


SHFI. 6690 
SHFI. 6700 
SHFI. 67 1 0 
SHFI 67?0 
SHFI. 6730 
SHFI 674(1 
SHFL 6750 
SHFI 6760 
SHFI. 67 70 
SHFL 67 H(> 
SHFI. 6790 
SHFI 6800 
SHFL 68 10 
SHFI 6870 
SHFI. 6830 
SHF| 6840 
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si IBRnilT I WF SI.CC T( r.M # PT f CT,ST*NTfNT«I ) SHFL6R50 

f#*#*# lit#* ##$$$# FI 6H60 

c FORM PLMF RFMniNi; ST1FFNFSS AMO LOAO N/Ff.TOR OUF TO SHPL6R70 

r 1HFRMAI. GRAOIFNT nF A LINFAP CURVATIIPF C P M p A 1 I R l F 1R I ANGLF (LCC T-9 ) SHFI. 6880 

r. MfiPM M. SI.OPFS AT Min SlflF WOOFS ARF FLTMINATFn USING SHFL6H90 

r THFlAfNM) AT MHOF 4 = THFTA(NN) AT NPOF 1 + IHFTA(NN) A1 NPOF? FTC SHFI 6900 


IMPLICIT RFAI *8 (A-M,n-7) 

0 I M F M S 1 0 N f.M( 3,3) ,F1( 9) ,CT( 3 f 9),ST(9,9) « I PFRM ( 3 ) 

CnMMPN/CPMPL/A I ?,4 ),R[?*4)»llfinfl|, L f 'C ( 3 , 4 ) , AR F A , SM T f 3 ) » RMT (3 ) , 
l U(3)tTX(3),TY(3)*OI3«6),P(?l,9),G(?l)*Hn3) t COM I 41 ) 

PATA TPFRM/?,3, 1/ 

FAf,l=ARF A/43?. 

FAC ?=1 • /I ?• 
nn i fo T = } , 3 
J = I PFRM { | J 
K = IPFRM(J) 

A 1 = A ( J * NT 1 
A?=A( .l,MT> 

RlsRUtMT) 

R? = R( .l,MT ) 

y=A 1 *A1 +R1*R1 

MC !)=-( A1*A?+P1*R?)/X 

y=nsmn (y j 

Y=4.*ARFA/X 


SHFI 6970 
SHFI 6930 
SHFI 6940 
SHFL6950 
SHFI 6960 
SHFI. 6970 
SHFI. 6980 
SHFL 6990 
SHFI 7000 
SHFI. 7010 
SHFI 7070 
SHFL 7030 
SHFI 7040 
SHFI. 7050 
SHFI. 7060 
SHFI. 7070 
SHFI. 70R« 
SHFI. 7090 


MT(I) = ?.*Y 
TX( I )* Y* A 1 / X 
T Y I j )=-Y*Rl /y 


Al = 0 , 6 *A i 
A?=O.R*A? 

R 1 =0 , 1 

r?=o. 6*n? 

0 ( 1 , 1 ) 

P( 7 , T ) 

nn,ll 

0(1 , T+? ) = 
n( 7 t 1+3) = 
0 ( 3 ,!+?) = 
ISO COMTIMIIF 


/ APF A 
/ AR F A 
/ ARF A 
/ AR F A 
« 1 # R 1 
A 1 *A ] 

?.*A1 *R\ 

7. *R] *R? 

?.*A1 *A? 

?.*( A1 *R?+A7*Rl ) 


f * * # # & ijr :$r £ £ * ){! ft $r # * * * * * * * <c $ 


St ft ft ft ft ft ft ft : 


SHFI 7100 
SHFI. 7110 
SHFI 7170 
SHFI. 71 30 
SHFI 7140 
SHFI. 71 50 
SHFI 7160 
SHFI. 7170 
SHFL 7 180 
SHFL 71 90 
SHFI 7700 
SHFI. 7? 10 
SHFI 7770 
SHFL 77 *0 

ftftftftftftftftftftftft#ftftftftft*ftft«ft*ftftftftftftftft*ftft$HF| 7740 


c CIIPVATURF - n I SPI. Af.FMFM T RFI.ATIPNS FPK 3 SIIRTRIANGLF RFGFIPNS SHFL 7750 

P ftft ftft ftft ftft ftft&ftftft ftftftftftftftftft ftft ftftftftftftftftftft ftftft ftft ft ft ft ft ftftftftftft ft ft ft ft ft ft ft ft ft ft ft ft ft ftftftftftft ft ft SHFI. 7760 


nn 700 I =t *3 

,1 = 1 PFRM ( ! J 
K = 1PFPM( .1 ) 
!!=?*! 

.1.1=3*. I 
KK=3*K 
A 1 =A( I *MT ) 

A 7= A (, I, NT ) 

A3 = A ( K,WT) 

R 1 = R I f *NT ) 
R?=R( .1 *M1 ) 

R? = R( K , NT I 
HI =IK T ) 
l»7 = tl( J ) 

113 sill X ) 

HI = 1 .-in 

M7 = l .-II? 

H?= 1 , -113 


SHFL 77 70 
SHFI 7780 
SHFL 77 90 
SHFI 7300 
SHFL 7310 
SHFI 7370 
SHFL 73 30 
SHFI 7340 
SHFL 7350 
SHFI 7360 
SHFL 7.370 
SHFI 7380 
SHFL 7 390 
SHFI 7400 
SHFI. 74 10 
SHFI 7 47 O 
SHFL 74.30 
SHFI 7 460 
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Rin=R)+Rl 

R?n=P?+R? 

R3P=R3+R3 

A]n=Al4Al 

A?n=A7+A? 

A?0=A^+A3 


C.?\ = R) -R3#H3 + [X| K ) 

r.?i = ai-a3*m3 + 7 y # k > 

f3) = R3*W3-R? +TX( K ) 

r.Al = A?*W3-A? + TY f K ) 

r.Rl = R3-R7n-R?*ll? + TXf .1 ) 

r.Ql = A3-A?l>-A7*ll? + TYMM 


r.7?=-Ain+R?*'w?+R3*ii3 + Txc.n-txrK) 

C??=-A1 n+A?*w? + A3*l»3+7Y 1 J)-7Y IK ) 

C« !? = R?D-R3*W3-R1*H1 +TX(!J-TX(K) 

C6? = A?n-A3*W3-Al *11) +7 Y ( I I — 7 Y ( K > 

CB7 = R10-R3+Rl*W 1 +TXM) 

no? = A10-A3+A1*WI + 7 Y f I ) 

nn ?on n=i *3 
L = 6*U-1 )+h 
on=n( n, i ) 

07?=O(M t ,l ) 

03 3 = 01 N, K ) 

ni?eOf N 9 T+3) 

023 = 0( M * .1+3 ) 

O?! =Of M,K+3 ) 

07333=073-033 
031 33=031 -033 

PI I. « I 1—7 1 = A .*( -01 I+VJ?*033 + |I.3*U?333 ) 

PR .11-1) = r?l*o?3+r.??*033-R?n*ot7+R?n*o3i 

PI I. *11 ) = C31*073+C37*033-A3imil?+A2n*03l 

PR = 6.*(0??+W3*07333) 

PM. t.u-l ) = r.51*n?333 + R3n*0?7 

PM. ) = r.Al *G?333+A3n*077 

PI I. ,KK-7) = A.*( 1 .+11? )*Q33 

P(|. ,KK-1 ) = mi *033 

PM. ,KK ) = mi *033 

PM. + 3 *J!-?) = A. *101 1+113*03133 ) 

PI 1*3 ,11-1) = r.?l*03133-R3n*0H 
Pfl. +3 , FT J = C31*03!33-A?n*Cl!| 

PM.+3 ,J.I-7) = A.*( -0??+U1*033+W3*031 33) 

PM. + 3 *,».|-1) = n*n*0?1+C57*033 + R?n*oi ?-R)0*M73 

PM. + 3 *.|.l ) = r.M*031+CAP*033+A31)*ni?-A10*fj?3 

PM. + 3 , KK —7 ) = A.*() ,+Wl )*033 

P( L+3 ,KK -1 ) = m?*033 

PIL + 3 , KK ) = r.9?«U?3 

P(M+1R,T1-?) = 7,*( 01 l*ii3*ni?+w?«M31 ) 

p i m+i r , kk — l ) = mri n-R7n)*n3^+r.R7*o?3+r,Mi*o3i ) /3. 

P(M+ 1 fl v KK ) = ( iAtn-A7n)*n33+r.97*n73+r.91»n3] ) /3. 

?no r dm 7 i wnF 

C S71FFWFSS MATRIX AMD THFPMA1. 1 HAD WFf. |OR 

r f A**A*************<:*<:*J!!******^>S)(t«**#^i>j>-t*5*!^4iV<«^^*^#^i!:i^^*4!. 

r>n 40n j=i,u 
F71 .1 )=n. 
nn 340 1 = 1.3 
1 T=L 
KK = I. + 1 P 
P3=P{ KK * J) 

OIKK )=0. 


SHFI. 7450 
SHFI 7460 
S H FI. 7470 
SHFI 7 4R0 
S H FI. 7440 
SHFI 7500 
SHFI. 73 1 0 
SHFI 7*570 
SHFI. 7330 
SHFI 7340 
SHFI 7350 
SHFI 7 S AO 
SHFI. 7370 
SHFI. 7 SRO 
SHFL 7590 
SHFI. 7600 
SHFI. 7A10 
SHFI 767 0 
SHFI. 7 A 30 
SHFI. 7640 
SHFI. 7650 
SHFI. 7660 
SHFI. 7670 
SHFI. 7 ARO 
SHFI. 7640 
SHFI 7700 
SHFI. 7710 
SHFI. 7770 
SHFI. 7730 
SHFI. 7740 
SHFI. 7750 
SHFI. 7760 
SHFI. 7770 
SMFI.77R0 
SHFI. 7740 
SHFI.7MOO 
SHFI. 7H10 
SHFI 7R70 
Shfi. 7R3n 
SHFI 7M40 
SHFI. 7M50 
SHFI 7H60 
SHFL 7 R 70 
SHFI 7«»0 
SHFL 7H40 
SHFI 7400 
SHFL 7410 
SHFL 74? o 
SHFL 7430 
SHFI 7440 
:4*«:*#4s*4«* : s c < ) HFI_ 7451* 
SHFI 7460 
:$*>>***5*>!t$£$SHFL74 7n 
SHFI 74«0 
SHFI. 7440 
SHFI KOOO 
SHFI. HO 10 
SHFI R(l7n 

Shfi. ro.3o 

SHFI M 040 
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nn 34n Ns ] ,3 

S H FI. H 05 M 


J J- J T + ? 

SHFI H060 


SHMsP( U .1 ) + P( J.I,.D+P3 

SHFI. R070 


nr n )= shm+pi ? t,j> 

SHFI. P ORO 


nr .i.i > = shm+p( j.i,,i > 

SHFI. HOHO 


nfKK)=0(KK ) + SHM+ P 3 

shfi «inn 


FT1 .1 ) =FT( .) )-<JIM*RMT( 1. )*ARFA/9.0 

SHF!. Ml 10 


T T = II+A 

SHFI P1?(> 

3ao 

COMT | Mi 1 F 

SHF». PI .30 


nn ?ao n=i , l «, 3 

SHFI R 1 40 


m=nr n > ■ 

SHFI. M bn 


n?=n(w+i > 

SHFI M 1 AO 


03=r,( n+? > 

SHFI. HI. 70 


pin )=cm r i , i »*ni+r.M(i , ? )*n?+r.M( i , 3 i*n? 

SHFI R1H0 


nr m+i )=cm( 1 ,?)*ni+r.M( ? f ?i*n;>+cM( ?,3)*i;3 

SHFI. HI 90 

^»An 

n(M+ 7 irf.Mn ,3)*ni+r.Mf?, ? )*n?+r.M«?,3 1*03 • 

SHFI H?00 


no 3Qn 1 = 1 ,,i 

SHFI. u? 1 0 


y=o , 

SHFI 8??0 


nn 3 nn M = 1 t ?1 

SHFI. H? 30 

3pn 

x=y+nrw}*P(M t i > 

SHFI R?40 


x=x*faci 

SHFI. H ? 50 


si r 1 t .») = x 

SHFI R?AO 

ion 

ST( . 1 , 1 ) = X 

SHFI. R? 70 

/*nn 

rnwiTwriF 

SHFI H? HO 


C 

-CIIRWATHRF - m SPLAf.FMFMl RFf.AllPN AT ELFMFNT f.FNTRE 

SHFI r?oo 

f*** *-:#*##**«-:*«<«**#**«***« *«**«******$*#>!! £#**>)<***##£***$ 

***************SHFl. Hilo 


if (MTRi.Fn.n nn Tn ssi 

SHFI H ?? 0 


nn *>sn ,0 

SHFI.H330 


Pfl ®t,U = l PI in,*n+PC ] 3» J > >*n.s 

SHFI R340 


p( ?n,,n=r P( 1 1 *.n+p( i* , j) )*n.s 

SHFI. R3 50 

rso 

P <P 1 .,!> = < PM?, J)+P( 1 •St J) >* 0.5 

SHFI H 360 

f, £**##**$**$$:& FI. R 3 70 

c 

-MPMFN7 - niSPI ACFMFM1 RFLAITPM 

SHFI H3H0 

f) ********* A*** ** * ****** ft ********** ********************** 4 

***************SHFL R390 

PP1 

nn Ann 1 = 1*3 

SHFI. HAOO 


nn Ann ,1 = 1 f n 

SHFL «Ain 


SMM=n, 

SHFI P 4? 0 


nn Ain k=1 .3 

SHFI. H4 30 

A10 

siiM=siiM+r.M< i,k )*p<K+jfl, j) 

SHFI H 440 

c 

c 

*r 

CT( 1 •J)=-FAr.?*SHM 

SHFI. P450 


PFTMRM 

SHFI. H460 


FMH 

SHFI. M4 70 



StiRRHin IMP SHI.CT1 ( S?,ST * 1! .TP.T3.IPC 
C **** ************* ** * *** *** **** * *** * *#* * * * 

c rnnRniMAiF transformation pf triangi. 

f' ** * * * * * ** * * **** * * ** * * * * * ** * ** * $ * * * * * ** * * * 

IMPLICIT RFAI.4R |A-H,0-Z) 


***********#•^****#*>{ 1 ******** 

njMFMS WN T1< 9.4) ,T?l 9,4 1 .T3(9,4),S2(30.30) *1.0013,4) ,ST <9 ,9) 


, N T J SHFI ft 4H 0 

* )C ****** 4 * ** *** *************** 5 HFL ft490 
F Fl.FMFMl RFNflfMG SUFFNFSS SHFI.RROO 

* SHFI. BRIO 
SHFI RR?() 


FPO CPN1TMIIF 

RFTIIRM 

FND ' 


SHF*. RR30 


OP Ron ,t,i = I,R 


SHFI PR40 

.IT = 36,1.1-3 


SHFI. RS50 

,l = .IT + 1 


SHFI RSftO 

on 4 po n = l v.i.l- 


SHFI. RR 70 

n = 3 *h-3 


SHFI. RRRO 

I = IT + 1 


SHFI. RR90 

KK = ft 


SHFI RftOO 

nn 4Rn i. = i ,ft 


SHFLRftlO 

IF (I T . FO. ,1,1 ) KK = 

1. 

SHFI. ft ftp 0 

M = LnC(.U t MT)+|. 


SHFI. Rft30 

».? = !.-? 


SHFI Rft40 

IF I 1.3 ,GT «P I GP TP 

4ftO 

SHFI. Rft 50 

C ?= 13 |,I7 + |_, NT ) 


SHFI RftftO 

HI = ST{ T ,.f)*C3 


SHFI. Rft 70 

H? = ST 1 T + 1 ,,l l*C3 


SHFI HftHO 

H3 = ST( I+?,JI«C3 


SHFI. Rft 90 

GP TP 47P 


SHFf R 700 

Cl =T1( .IT+L3,WT) 


SHFI. R710 

CP= TP IJT+L3, NT ) 


SHFI H7?0 

HI = ST( I ,.1+1 )*C1 

+ SKI ,J+P)*C? 

S M FL R 7 3 0 

hp = si u+i ,.i+i i*r.i 

+ ST ( 1 + 1 »J+P )*C? 

SHFI R 740 

H3 = ST( T + ?,.l+l )*C1 

+ ST( I+?,J+P)*C? 

SHF1.R750 

M = I.PCI I 1 ,NT ) 


SHFI ft 7ft0 

nn 4R0 K = 1 ,KK 


SHFI.H770 

M = N + 1 


SHFI H7H0 

K3 = K - 3 


SHFL R790 

K1 = n + K 


SHFI.HHOO 

X) 

II 

— 1 
+ 

jJ 


SHFI. PR 10 

IF ( K?« |.F « 0 ) SO = S?(M,M). + T?(K],NT)*H] 

SHFI RftPO 

IF (K3.GT.0) SO = SP(N,M1 + T H K ? , MT )*H?+ TP I K? , NT ) *H3 

SHFLRR30 

SPIM,M)= SO 


SHFI RM40 

SP(M,M)= SO 


SHFI. Rft 50 


SHFI HftftO 
SHFI. RR 70 
SHFI. RRRO 


SIIRROPTINF SHI.CTP1 S*T0,C1,CP,C3) SHFI.RH90 

f *********** ************ ******** ** * ***** ***************** ************* **SHFI H900 

C TRANSFORM' THF STIFFWF SS MATRIX AT R'TH MPDF TP GLOBAL CPPROINATFS SHFI. «9 10 

£********************************************************************* **£HFI ft 9? 0 


IMPLICIT RFAI.*R ( A — H t P — 7 ) 

niMFMSIPN S I 30. ?0 ), T0( ?,3) , Cl I?), C.P <?),C3I?) 

I F( S f?R,PR».GT. S ( P7,?7)*l .PF-071 GO TP *9? 
nn ftOR 1=1,30 
S ( I t 7R)=n.o 

ft q* s i ?ft . I )=n.n 

ftp? I FI S' ( Pft.pft) .gt .S f ?7 ,?7 1*1 .pf- 07 ) on Tn mja 
nn ftpft i = t , r n 
s ( l,Pft|=n.n 
ftgft s l ?ft. I )=o.n 

ft9A TFI S (30,3") .GT.( S •< ?Q,?9)+S I ?P,?K) 1*1 .PF-Oft) gp IP 730 
DP TIP T= ] . ?n- 

s ( 1 , 30 ) =n. 


SHF1.R930 
SHFI R940 
SHFI. R9R0 
SHFI R9ft!) 
SHFI. ft 9 70 
SHFI R9M0 
SHFI. M990 
SHFI 9000 
SHFI. 9010 

SHFI 9070 
SHFI. 90 30 
SHFI 9040 
SHFI.90S0 


yO 


O 



710 S ( ?0. I 1 = 0, 

7^n nn io u = i,3o 

nn ii j*i,3 

CM I ) = S I II,?5|*Tn( 1 •! I+SM I ,?6)*TP< ?, 1 )+S(!I.27)*Tn(3,I) 
U CP tj )*M IT ,7« I* TOM , I ) + SI M ,29 l*1Pf2, I 1 + S ( f I , 30 1*TM 3, I ) 

nn io .!=i ,3 

S f T I « j+?a ) =r. i i,i i 
10 SI T 1 ,.|477)=C7( .1) 

nn ?o ,1.1=75, 77 
.l3=.IJ+3 
nn ?\ |«1,3 
T) =Tn( i , n 
i? = mi? , i j 
T3=T0( 3 , T > 

C.)(!) = l 1*S(75, ,V) + T7*SI ?6,.U) + T_3*S 1 27, JJ 1 
r.?H 1*11 *S( 75 ,.I3I + T?*S< 76,.t3 1 + T3*S< 77* .131 
71 C?l 1 1*H*M?A, ,l3)4-T?*S(?9,.l?) + 13*S(3rs J3) 
nn ?o 1=1,3 
S I T+74,.t.l )=Ct f I ) 

si T + ?4 tl n)=r?( i ) 
s (.??, ?+?4 )=r ? ( 1 1 
70 S( 1 + 77, ,13 »=f.3< 1 1 
on 30 i=i, 7 a 
nn to .1 = 75,30 
*0 SI,»,f ) = S< T,J) 

RFTlfRM 

FMO 


SHFI 9060 
SHFL 9070 
SHFI 90K0 
SHFL 9090 

smfi 9 ion 
SHFL91 in 
SUFI 9170 
SHFI.91 40 
SUFI 9 140 
SHF'. 9150 
SHFI 9160 
SHFI.91 70 
SHFI.9 1 HO 
SHFI.9190 
SHFI. 9700 
SHFL 9? 10 
SHFI 9770 
SHFI. 97 30 
SHFI 9740 
SHFL 97 50 
SHFI. 9760 
SHFL 97 70 
SHFI. 97 HO 
SHFL 9? 90 
SHFI 9300 
SHFL 9310 
SHFI 9370 


SHHROtniMF SH7771 ISf. ,S?1 SHFI 9330 

0*****ft* ****** 4****** ********** *##*****$#:>^#*$*>!t *£$*##£*#**£#**#$«*** **#SHFL 9340 

C rnUPUlF K 77 TMVFRSF * K71 FOR CPNOFMSAT 1 ON OF GFPMFTRIC STIFFNESS SHFI 9350 

c JM CASF nF nilAPRH ATFRA1. PI. A TF / SHFl.L FLFMFNT SHFL 9360 



implicit rfai.*r (a-h,p-;» 

SHFL 93 HO 


0 I H F M S I OM sc 1 6, 74 I , S7 1 30, 301 

SHFI 9390 


on 710 1=75,30 

SHFL 9400 


T F ( s? M * 1 1 .F 0 . 0 . ) f;n TO 710 

SHFI 9410 


PI v=l .0/S7I 1 , ? ) 

SHFL 947 0 


on 770 , 1 = 1,74 

SHFI 9430 

770 

S?( 1 , .1 ) = S7( 1 ,.l 1 <=P IV 

SHFL 9440 


11=1+1 

SHFL 9450 


!F< 1 1 ,r,T.30i on TO 710 

SHFL 9460 


nn 730 ,i= n,30 

SHFI 9470 


T Ff S7 c .1 , .1 ) ,Fn.n, ) (;n to 730 

SHFL 94 HO 


00 74" K = 1 ,74 

SHFI 9490 

740 

S7( J,K ) = S7( ,I.K )-S7( .1, I )*S7( 1 ,K ) 

SHFL 9500 

7?0 

COM! IMfiF 

SHFI 9510 

710 

cnwT 1 Ml IF 

SHFL 9570 


nn 7 c o 1=75,30 

SHFI 9530 


TFI S7( I , n .Ff>.n. j on jn 770 

SHFL 9540 


nn 760 , 1 = 1,74 

SHFI 9550 

760 

SCI 1-74 ,.|)=S?I I ,.l 1 

SHFL 9560 


r,n in 7 so 

SHFI 9570 

770 

nn 7 ho .1 = 1 ,74 

SHFI.95H0 

7 HO 

SC( 1-74 ,,l 1=0. 

SHFI 9590 

750 

r.OMT 1 MIIF 

SHFL 9600 


RF TURN 

SHFI 961 0 


Fwn 

SHFL 967 (1 
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SlIRRniH fNF nSHFI.l C Afll.n, ANFW.LPAn.Nimnv ) SHFI. 9ft30 

f nFSJGN PF PI. A TF/SHF1. 1 FLFMFNTS FOR S1RFSS CONSTRAINTS SHF| 9ftS0 

f #***#**<:«**$« ****************** *«***£*#***«*$***>!!<:* *$=>$*#***<«****:*<:****SHFI. 9ft ftO 
niMFM^fpM Afii.n(WHMnv), ANFw<Ni>Mr)v).Lnfli)(MUMnv) shfi 9ft7n 

f.nMMnN/JIIMK/ LTfl.H«l.«Sr,( 20 J . FX , F V , F X Y ♦ SMX ♦ SM Y * SMXY«S1K« SHFI. 9ft PO 

1 | OVAR , TFX.FKC ,H, X |MFR T , IFM.CPMP , SHF AR . HE T A » HR I 2 ) , JIIN1 ( 327 I SHFI. 9690 

FXVl = FXY/( SHFAR*H ) SHFI. 9700 

SMXY1 s:ft.n*SMXY/l SHF AR*M*H ) SHFI 9710 

FX =- ! .n Shfi. 9 72n 

on 200 1 = 1,2 SHFI. 9730 

ifii.fo,?) r.oi.o shfi.q74o 

f. l = FX/H+("C4f,.o*SMX/IH4H) SHFI 97 so 

r.7 = FY/H+r.C*f. ,04SMY7( H4H 1 SHFI.P7f.fi 

A X = T F M SHFI 9770 

ft Y = T F M SHFI. 9780 

iFir.i .1,1.0. ) flx=r.nHp shfi . 9790 

TFIC7.LT. 0.1 AY=r.OMP SHFI.9R00 

FX1 =FX/(AX4H) SHFI 9RI0 

FYl = FY/( AY*H| SHFI.9R70 

SMXl=f..O*SMX/IAX*HtHI SHFI.9R30 

SMYl=ft.04SMY/( AY4H4H) SHFI.9R40 

CXX = FX14FX14FY14FY1+FXY1*FXY1-FX1*FY1 SHFI.9R50 

CX = ? ,0*( FX) 4SMX1+FY1 *SMY |+FXY1*SMXY] I- F X 1 * SM Y 1 -F Y 1 * SMX 1 SHFI.9R00 

r.x=r.x*r,r. shfi 9r7o 

r.= smxi*smxi+smyi*shyi+smxyi*smxyi-smxi*shyi shfi.9bro 

MP( I ) =H SHFI 9890 

on ion .1=1,10 SHFI. 9900 

HHH=(r.XX-*-CX4H/HP< 1 1 I 40. S SHFI. 9910 

HHH=HHH+SORT( HHH9HHH + C ) SHFL9970 

HHH = S0R7(HHH|4H SHFI 9930 

I F ( ftRS IHHH-HPI I I 1 .1. T .0.001 I 00 TO 700 . SHFI.9940 

100 HPII)=HHH SHFI. 9950 

700 HP( 1 1 =HHH SHFI. 9900 

MH=HP(1) SHFI 9970 

IFI HH.l.T, HP( 7 1 1 HH = HP(7) SHFI.99R0 

HH=HH/FRC SHFI 9991) 

IFI HH.I.F .ftMFUl mVAR ) 1 00 TP 400 SHFI-00110 

AMFWI TOVAR 1 =HH SHFI. OHIO 

i.nftn( mvftRi =i_ shfi.ooro 

600 RFTHRM SHFI 0030 

FMn SHFI. 0040 
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SMRRnm ?mf shfi.pi ( sc ,tp,mtpt) shfi 0050 


c calchlatf unit gfpmfiric siiffnfss matrices pf shfu. flfmfni shfi.oo7o 

f*#*****<.*^****-t^ #****###****#*« on RO 


IMPl.TCIl RFAI.*8 (A-H,n-Z> 
n I MFMS I ON • SCI 6,?4 ) ,TO( 9) 

CPMMnw/COMPl./AI 1?) ,811 7), 11 (36) ,1?I3M , T3(?6) ,I.PC( 1?) ,G1 (9,9) , 
l G7( 9,9) ,G3{ Q,Q) , Cini,C?M)tC3(3I ,CHMHM 
r.PMMPN/FM/LMI ?4 I ,GIJ1 (30,30) ,GH? I?0, 30 ) ,GII3 ( 30 , 3Q > ,EM1 ( 62 ) 
nn 700 i = i t 3 n 
no ?oo ,»=i t 3 n 


SHFI 0090 
SHFI. 01 no 
SHFI. 01 10 
SHFI. 01 ?0 
SHFI 0130 
SHFI. 01 AO 
SHFI 0150 


film I.JIsn, SHFI. 0 1 60 

GH?U,J) = 0. SHFI. 0170 

700 GM3(1,.M=0. SHFL01R0 

OP 100 M7=1,MTR( SHFI 0190 

<c *&**!*(*#>!£*£**)!:*$#*$# ilc********!):*!:)}!**#***#*:^#*#*****# ft ft ft ft ft ft jU ft ft * ft £ n p:|_ 07 00 

r FORM UNIT GFPMFTRIC ST ! FFNF SS MAlRICFS IN I.PCAL COORDINATES SHFI. 0? 10 


L*ftftft**ftftftftftft*ftft#*ftft*ftft*ftftftftft*ftft*ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft*ft5HFl ();>?() 

CAI.I, SHFl.GPfNT) SHFI 0730 

fftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft^ftftftjfsftftftftftft^HFLOPd+Q 


r TRANSFORM TP GI.PRM. CPPROINAIFS 


SHFI 0750 


r, ft** **$£**««**£**#***£*£*** ft*************#**#*#*****#^*^!-.****-^^*****^^ 07 60 


CALI. SHI.CT1 (Gill *G1 • T 1 , T 7 , T 3 ♦ L PC ♦ N T > 
CALL SHI.CTM GH7.G7.T1 . T7 • T3 .IPC .M T 1 
100 CALL SHLCT1IGH3,G3,T1,1?*T3,LPC,NT) 
IF ( MTRT .FO.l ) PFTUPM 


SHFI. 0770 
SHFL07 BO 
SHFI 0790 
SHFI. 0300 


C. GHFf.K FPR FLAT PR MFARLY FLAT OHAOR 1 1. A TFR AL FLFMFNT AND SHFI. 0370 

C TRANSFPRm SIIFFNFSS AT 5 1 TH NPPF TP GLOBAL CPPROINATFS SHFI. 0330 

Lft#ftftftftftftftftftftft*ftftftftftftftftftft#ftftftftftftftft#*ftftft#ftftftftftftftft#ftft*#ftftftftftftftfcftftftftftftftftftftft5HFL0340 


CALL SHLCT7IGM1 , TP.C1 ,C?*C3) SHFI 0350 

CAI.L S HI. C T 7 ( Gl I ? , T P » C 1 * C ? t C 3 ) SHFI.0360 

CALI. SHLCT7IGH?, TP*C1 .C?*C3 I SHFI 0370 

r ftftftftftftftftftftftftftftftftftftftftftftftftft * ftftftft*ft*ft*ftftftft#ftftft#ftftftftft£:}c£ft*ftftft)(;ftftftftftftftftftftft:i:)CtSHFL03P0 


C COMPPMSAT |PN PF IMTFPMAI. OFGRFFS PF FRFFOPM PF UNIT GEPMF TR 1 C. SHFI 0390 

C STIFFWFSS MATRir.FS SHFI.0400 

L*£*ftftftftft£ftftftftftftftft**ftftV/*ft*ft*ftft*ftftftftftftft*ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft;vc;F|F| f| 


CALL SHLCn?( GUI ,SC ) 
CALL SHLC.n? I GII7 * SC 1 
CALL SHI.C.n 2 1 GM3 * SC ) 
RFTIIRM 


SHFL0470 
SHFI. 0430 
SHFI. 0440 
SHFI 0450 


FMP 


SHFI. 0460 
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SURRninfMF SHFLG?<NT) SHFI 

f **##**«**:* ******* «*££<:********* $*$«*****$** # 4 # $**#*#:* **$*****£#*£******$ HFI. 

C PIMP UMfT PFHHFTRIC STIFFNFSS MATRICES f.PPRF SPPNIM Nf, TP SHFI 

C MFMRR AMF STRFSS R F SUL T AN T S M(XX),N(YY) AMP M(XY) IN LOCAL SHFL 

r rnnRPTNAiFs fpr thf triangular flfmfnt pompon fn shfi 
C ;*************** ***************** ********* ********* *********************SHFL 
IMPLICIT RFAI.*« (A-H.P-Z ) SHFI 

niMFMSinw 71 7 , 3 ) .HI 7 ) t IPM( 3 ) SHFL 

f.PMMPM/f.nMPL/A < ?, 4 ) , R| 3,4 ) , TTM 08 I 'LOCI 17 ) «G 1 C 9 ♦ 9 ) ,G? { 9 ,9 ) ,G 3 ( 9 , 9 )SHFI 


I ,nn,Q),nx( Qj t nY(Q) 

PATA 7 /P. 33333333333333 ? 


, 0.0497 I 5«71 7 R 977 P , 0. 470 1 42064 105 1 15 


P. <• 70 1470 AM 0 * US , , 7974 ? 69 R 53530 R 7 , 0 . 10178650737345 A 


0 . 1017 RAS 07 ? 7 ? 4 SA 
0 . 0 SO 71 Sft 717 R 9770 
O. 7 Q 74 ?A^RS 3 S? 0 P 7 
0 . 470147064 ] PS 1 IS 


i 0 . 33 ^ 33333333 ^ 33 ? , 0. 4 7014 70641 OS } ] 5 
r n. 47014 ? 0 A 4 l 0 Sll S , . ] 0 1 2 R 65073 2345 A , 
,n. IP] 7 PAS 073734 SA , 0.333333333333333 
,O. 47 O 1470 A 4 inS 115 , . 059715 R 717 R 9770 , 


SHFL 

SHFI. 

SHFL 

SHFI. 

SHF'. 

SHFI 

SHFL 

SHFI 


s 

A 0 . 10 l 7 RASn 737 ? 4 SA , 0 . ] 01 7 R 6507373456 , 0 . 7974 ? 69 R 53530 R 7 / 

OATA H/.?? 5 , . 1373941 S 77 RR 50 A ,. 1 37394 1 S 2 7 RR 506 ,.132394157788 506 .SHFL 
1 . 1 759891 ROS 44 R 77 ,. 1 75939 1 R 0 S 44 R 77 , . 1 ? 59391 H 054 Ar ?7 /SHFI 


nATA TPM/7,3,1'/ 
nn 5 1 = 1 ,q 
nn s . 1=1 ,9 
G1 t TtJ)=o. 

G 7 ( I , .1 ) =0 . 

G?{ J f% l)= 0 . 

A] = A( 1 ,MT) 

A 7= A ( 7, NT ) 

A 3 = A( 3 ,MT ) 

R 1 = R I ] , NT ] 

R?=R( 7 ,MT ) 

R? = R ( 8 t NT ) 

ARFAA = ( A3*R?-A7*R3 >*? 
OP 10 P 1 P = ] * 7 
HI =H( IP) 


SHFL 

SHFI. 

SHFL 

SHFI. 

SHFI. 

SHFI 

SHFL 

SHF|. 

SHFL 

SHFI 

SHFL 

SHFI 

SHFL 

SHFI 

SHFI. 


f ******** ******************** #4* **** ****** ************************ ******SHFI 

c F I Nn SHAPF FUNCTION DFRIVATIVFS H • R • T NATURAL COORDINATES 10 ) ANO SHFL 

C W.R.T X ANO Y CPORHINAIFS tOX.OY) AT I NJFGP A T f PN PPJNT IP SHFI. 

C *********************************************** **********************~*SMFL 


on in i = i ,3 

. 1 = I PM( I ) 

K = I PM { J ) 

n=i*3-? 

JJ = ,»*3-2 
K K =K *3-7 
A 1 = A C I ,NT ) 

A .1 =A ( .l,MT) 

AK = A ( K , NT ) 

R l =R( l ,MT) 

R ,1 = R f J . M 7 ) 

RK=R( K ,NT) 

71 = 7 UP, I ) 

7? = 7( TP,.I ) 

7 3=7 l?P,K ) 

711=71*71 
7? 7=77*77 
733=73*78 
71 7=71*77 
778=77*78 
7)8=71*78 

»( I, I 1 ) = 1 .0-/??- 7 33+?*( 7 17 4-718) 


SHFI 

SHFI. 

SHFI 

SHFI. 

SHF| 

SHFL 

SHFI 

SHFL 

SHFI 

SHFL 
SHFI 
SHFI. 
SHFI 
SHFL 
SHFI 
SHFI. 
SHFI 
SHFI. 
SHFI 
SHFI. 
SHFI 
SM FI. 


0470 

04 RO 
0490 
0500 
0510 
0570 
0530 
0540 
0550 
0560 
0570 

05 RO 
0590 
0600 
0610 
0670 
0630 
0640 
. 0650 

0660 
0670 
04 RO 
0690 
0700 
0710 
0770 
0730 
0740 
0750 
0760 
0770 
07 R 0 
0790 

o«nn 

OHIO 
087 0 
or 30 
OR 40 
OP 50 
OR 60 
OR 70 
OHRO 
0R9O* 
0900 
0910 
0970 
09 3(1 
0940 
0950 
0960 
0970 
()9 RO 
0990 
1000 
1 010 
1070 
1030 
1040 

1 050 
1 060 
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0(1,11 + 1 )=?*( RJ*7.1 3-RK#7 171+n.5*(RJ-RK )*7?3 SHFI 

H( 1 1 1 T+? 1 = 7*1 A. 1*Z 13-AK*Zl 7 ) + 0.5*( A.I-AK 1*7. 23 SHFI. 

nil„l l l )=7??-?*7 17 SHFI 

0( T ,.1.1 + 1 )=nK*7??+n.5*( RK-RI 1*773 SHFI. 

nf I ,JJ + 7 ) =Ak*7?? + 0.6*( AK-AT )*773 SHFI 

0(1, KK ) = 733-?*7 13 SHFI. 

n( T ,Kk+l)=-R.I*733 + n.«,*( Hl-M.l 1*77? SHFI 

10 n( T ,KK + ? ) = -A. 1*733+0. 6*( AI-A.n *7 73 SHFI. 

no ?n 1 = 1, Q SHFI. 

nx( t j = n( i , i )*Ri+ni 7 , n*R7+n( 3,1 i*R3 shfi. 

70 PY I J 1 = P( 1 , T 1*Al+P( 7* M*A7 + P( 3, f l«fl3 SHFI 

£***** ******** **********************************************************SH FI. 

r. F J N' 0 r.PNIR TRIIT 1PM m UNIT OFOMFTRir. STIFFNFSS MATRIX FROM SHFI. 

C 1 MTFGRAT I PM pn|MJ IP SHFI. 

£**************** *******************************************************5HF| 
nn 3 0 1 = 1 ,9 SHFI. 

no 30 j = j ,i shfi 

OK I ,.i 1 = 01 ( l ,.i)+nx( n *nx( ,i j*hi shfi. 

07 1 I , J)=P7( I , J ) + r»Y ( I )*PY( J)*H1 SHFI 

30 r,3( i , .u = r,3( T ,.n + ( nx( M*nv( .1 )+oy( n*nx u> )*hi shfi. 

ion COM 7 I AM IF SHFt 

on AO 1=1, Q SHFI. 

on AO .1 = 1 , 1 shfi 

r,l( T ,.l l = r,l( I ,J) /APFAA SHFI. 

G?l I,. I )=0?M ,.l 1/ARFAA SHFI 

03{ T,.»» = r,3( 1 ,.l) /APFAA SHFI. 

P1I.MI =01 f T , . 1 ) SHFI 

071 .1, 1 )»G7( I ,.l» SHFI. 

AO G?(J, T ) =0? ( I , ,1 ) SHFI 

RFTIIRM SHFI. 

FMO SHFI 


siiRRnmiMF SHi.cn? ( 0 , sr. i 


SHFI 


(■;***** ******** ********************************************************** S H FI. 

c r.nMnFMSATinM of tmtfrnal n.n.F of gfomfiric siiffmfss matrix shfi 

f|************* ************************* ***********xc*********************SH FI. 


TMPI ir.1T RFAI *R (A-H.p-7) 

0 I M F M S 1 HM 30,30) ,SC(!S,?A) 

on so i=?6.3n 
on so .1 = 1 ,?a 


SHFI 

SHFI. 

SHFI 

SHFI. 


SMM-O. 

on AO K = 7*1 ,30 

AO SMMsSMM+M 1 ,K )*sr.(K-?A, J) 
so o( t ,.i i^-siiM+nt i , .1 1 
on 70 1 = 1 ,7A 
nn 70 .1 = 1.1 

S| IM=0 . 

nn nn k = 1 , a 

nn si IMsSIIM-SC ( K , 1 )<•(;( K + ?A ,J )-0 ( | ,K + ?A|*Sr(K,.M 

0( I ,.l )=0( 1 ,.1 1+SHM 

70 r,u,T j=(;f 1 , ,1 ) 


SHFI 

Shfi. 

SHFI 

SHFI. 

SHFI 

SHFI. 

SHFI 

SHFI. 

SHFI 

SHFI. 

SHFI 


PFTHDM 


SHFI. 


FMn 


SHFI 


1 070 

10 HO 

I 09 0 
non 
1110 
1.170 
1130 

11 AO 
1150 
1160 
1170 

II RO 
1 190 
l? 00 
l?in 
1770 
1730 
17 AO 
1750 
17 60 
1770 
1? RO 
1790 
1.300 
1310 
1370 
1330 
13 AO 
1 350 
1360 
1370 


1 3R0 
1390 
1 AOO 
1 A 1 0 
l A70 
14 30 
1 AAO 
1 A 50 

1 A60 
1 A70 
1 4H0 
1 APO 
1 500 
1610 
) 570 
1 6 30 
1 6 AO 
1560 
1 660 
1670 

1 5HO 
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SURRnUTINF RPlIMn (A,MTflT) 

f ftftftftftftftftftftftftftftftftftftftftftftftft* ftftftftftftftftftftftftft 

C RPIINOARY FLFMFNTS 

f ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft'ftftftftftftftft 

niMFws ion a ( m 7 n t ) 

COMMON /FJ.PAR/ MPAR ( ] 4 ) ,NUMNP , MRA 
. « MUM FI. , MI|M|lV ,M 1 ,|_1_ , |.R v MFf.m 

COMMON /JUNK /I. T,P.H,I. ,$G( ?7 ) , JIIN1 I? 

common/units/ir,!*, IP* i i,i?,13,ir 

M| IMFsNPAR I 7 ) 

IF ( MPAR( 1) .FO.P) (;p TP son 

CALL CLAMP! A! Ml ) ,A! N?) , A |M3I « A IN4 

RFTIIRM 

BOO WRT7F ( IW.70O7 ) 
on 800 MM = 1 t Ml IMF 

CALL SIRS!*. ( AIM1 ).A(N1 J t A(M3) ,NFO 
np Ron l=LT,lh 

CALL SlRSf. lAfMl } « A ( M 1 ),A(N3),NFQ 
WR ITF( I W ,3007 ) MM, l ,( .SG!l) ,1=) ,? 
POO C0M71NIIF 
RFTIIRM 

7007 FORMAT I //30H ANALYSIS OF ROf INOAP Y 

IBah cnwsT niimafr Loan casf 

7007 FORMAT M X , 7 I 1 0 ,4X , 7F 1 S . S | 

FMD 


KPUNOOOO 

ftftftftftftftftft*ftftftftftftftftftftftftftftftftftft*ftftftftAnj^jOoio 

HPUN0070 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftHjHIM 0030 

PPIIM0040 

N0,MFl. TYP,M 1 ♦ M? , N3 , N4 , MS , Ml T T , NFOMPI IN0050 
MRI.PCK PfMJNOOftO 

3R ) RfM JM007 0 

,19,110, 111, 117*113 PPIINOOHO 

8PUM0090 

nmiNoioo 

) , Ml IMF ,NIIMMP ) B0UM0110 

BO UNO 170 
ROIJNO 1 30 
RPUM0140 

MUMOV , LL * LB* 0 ) BPIIN0150 

BPUM01 AO 

, Ml impv , L L « L B » I ) BPUM0170 

) KPIINOIHO 

ROIJNO 190 
RPUM0700 

FI.FMFMTS - CONSTRAINT FORTFS // IUMIN0710 
FPRCF MOMFN T / / ) BPIIN0770 

BPUN0730 

HPUN0740 


SURRPMTIMF Cl. AMP! in,x ,Y ,z *MIIMF ,MI|MNP ) BP1JM07 50 

f ft*ft*ft#ftftftftft*ftftftftftftftft#**ftft#**ft#ft* 4 **ftft#ftftftftftftftft«#ft*ftft*ft««ftftftcft«ft»*«#*ftft 4 tR(niMn 7 fto 

C BPMMOARY FI.FMFMT MATR1CFS BPIJM07 70 

('ftftftft*ftftftftft**ftft#ftftftftftftftftftftft*ftft<cft*ft***ftftftftft*ftftftftftftftftftftftftftftftft*ftftft^ftftftftftft#ftpnilM()7R0 


IMPLICIT RFA|.#R < A— M , P-7 ) 

R F A f. * 4 X, Y , 7 * FRC 

OIMFMS JPM X( NIIMMP ) ,Y( NIJMNP ) ,Z( MIIMNP ), UK NIJMNP ,6) , FMM { BA ) 

COMMON / FM/|_M I A ) ,S!A,A),PfA,4),XM(A),Sl(7,6)«lT(7«4)*FMl (76H5) 
COMMON /.II IN K /R! A),FMin_!4) # T!4) t lF<S»,lXI5),XX(«>),YYI5),ZZ!S),IU4), 
1 VIA ) , JIIM ) f ?R4 ) 

COMMON /l |N I TS / I R t ivi. Ip ,11, 17,13,18, 19, 110,111, II?, m 
FnilJVAl.FMCF (FMM, SI 
no 10 1 = 1 , BA 
in f mm 1 1 ) = n. 


B0UM0790 

BPUN0300 

BPIIM0310 

BIUIM0370 

MMUM 0330 

BOIIM0340 

H 0 UMO 35 O 

hPUNOHAO 

BOIIM0370 

HnilM03HO 


c COMTROI, INFORMATION RI1IIN0400 

r.ftftftftftftftft*ft##ft**ft*ftftftftftftftftft**#ftftftftft*ft*ftftftftftftftftftftftftftft**ftft*ftftftftftftft**ft«ftftft*BOUM(Kl() 


Ml 1=1 
Mn.=A 
MS = 7 

wv*l 

MW =1 

I n\/=o 

I F X =0 
F R C = 0 . 

WR TTF < I w, ?npn j miimf 
RFA n( I R , lOOS ) FMIM 
up TTF ! 1 w, 700S ) FMIII. 


HOIIM047 0 
B0IIN0A30 
B01JN0440 
KOI JM04 *>0 
RPl INO4A0 
HPUM04 70 
BOUNOAHO 
BOI IN0490 
BOIINOSOn 

BOIINOS] 0 
Ml M IM0S7 0 


C*ftft*ftftft*ftftftftftft* ftftftftftftftftftftft ftftftftftftftftftftftft ft## ft ft ft ftftftft ft ftftftft ftftft ft ft ft ftxsft ft £ft ft ft ft ft ft ft Hpi (NOS 30 
r FI.PMFM7 CAPOS BOI IN0S40 


ZOT'b 




wr n F I fvi,?nm ) 

M=1 

700 R F A r>f IR *1 000 ) ! FI. , I F , K0*KR , I Nf. * SO, SP , TP Af.F 
TFtKO.NF.l) Kn = 0 
IFf KR.NF. 1 > K«=0 

1 fc iwr. .Fn.m tnc=i 

TFMRACF.FP.n. ) TRACF= l.OF 10 
KK = IMC*( IFl.-NJ 
nn inn 1 = 1,5 
ion i y c t ) = I f ( i ) — kk 

TF(FFf?).NF.ni on m 710 
nn ini i= 3 *s 
ini t x ( I ) = o 
?in nn 550 nfi«n,ifi. 
nn no i=i, s 

I T = I X( I > 

! F f IT.FP.O) on TP 1)0 
XX( 1 )=X( n ) 

YYI T)=Y( 1 I ) 

77A I )=Z( T1 ) 

1)0 fOMl INI IF 

IFC lXf3l.FO.OI on TP ?so 

call VFCTPRm.yxm *YYI 7 >* 7.7 ( 7 ) *XX (31 *YY( 3 ) .ZZ ( 3 ) ) 

CALL VFCTHR* V,XX(A),yy(4)*ZZ(4),XXI5),YY(5),7Z(5)) 

C A 1. 1. CRPSMIM'.T) 
on in ?*n 

?5n CALL VFCinR (T , XX( I ) # YY( 1 ) * 77 ( 1 )* XX (?) *YY(7 ), ZZ ( 71) 

?a n nn 50 j=i ,3 

st ( 1 ,,1 ) =T( j j *tracf*ko 

ST( 7 ,,1 + 3 ) = T( .M*TRACF*KR 
R ( ,1 )=1 ( ,»)*7RACF*Sn*Kn 

R( .1 + 3 1 = T ( .1 ) *TRAC F*5R*KR 

nn 50 1 = 1 * t i 

M I ,.l ) = T ( I )*T ( .1 )*TRACF*Kn 

50 S( !+?*.•+? ) = 7 f I J*T(,I)*7RACF*KR 
no son 1 =?, a 
1 T = T - 1 

nn son .1 = 1*11 

500 S(T*.I) = S( J,T) 

nn 5 ? 0 .1 = 1 ,4 

71 ( 1 *,» )=-7RACF*Kn*5n*FMU|. 1,1) 

TTt 7 ,.l )=-TRAf,F*KR*SR*FMI)L{ .) ) 

nn *?r\ 1 = 1 ,6 

570 p( T * <1 ) — R C I ,n 

M = ?xm 
nn Ann 1 = 1 ,a 
* nn i.m( n = inr 1 t , 1 ) 

r.Al.l CAL RAN( NniF*I.M*S*P,ST*TT,NH, MV* NS,Nf)*NW t 1 nv * lFX*Fftr. ) 
WRITFI 1M, 7100) NFI. ,IX*KI>,KR,Sn,SR, IRAf.F 

ix( n = !xn i + inc 

TX(7)=IX( 71+1MC 

f f( f x 13 ) .Fo.oi on rn 550 

nn A5 n 1 = 3,5 

A5n i x( i ) = ixi i ) + iwn 
550 r.HMlfNHF 
Ms IF!. + 1 

IF 1 W.I.F.NHMF ) on TH 700 
PFTMRN 

1000 FORMAT I 01 5, 5X , 3F 10.0 ) 


Rfll IN05AO 
R0UN0570 

nniiNnsRO 
nniiNf)590 
BntjNOAnn 
RnnNOAin 
RPIINOA70 
RHI IMOA 30 
rpumoA40 
RPIIN0A50 

rpunoaao 

RPl IMOA 70 
RP1 INHAAO 
RPIJN0A90 
RfU IN0700 
RPUN0710 
RnilN07?0 
RP1IN0730 
RPUM0740 
RnilN0750 
nnuN07An 
RPHM0770 
RPUN07RO 
RP UNO 7 90 

nnuNORon 
RPMNORin 
HP UM 0870 
RPl IN0R.30 
RPIJM0R40 
RnilNOH^O 
RPIINORAO 
ROUM0R70 
RPUNORPO 
RPUN0P90 

RnUM0900 
RPIIM09 1 0 
RPl IN 097 0 
RPUN09 30 
ROHM 0940 
PPIIN09 50 
R( U IN 09 AO 
RnilN0970 
RPUNn9R0 
RPIIM0990 
RPUM1 000 
POUNlO 1 0 
RPl IN 1 07 0 
RflMN 10*30 
ROHM 1 040 
RPl IN 1050 
PPIIM LflAO 
BPUM1070 
Rf H IN 1 OHO 
RPl IN 1040 
RPl INI 1 00 
RPl IN 1 1 1 0 
RIMINI 170 
RPl IN 1 1 30 
ROHM 1 140 


Q. 108 


100* FORMAT I 4F10.0) 

7000 FORMAT I ?4H1 ROIIWOARY F L F M F N 1 S // 

1 73H NIIMRFR pf FLFMFNTS = , I * ) 

7001 FPRMA7I //77H ROIINMARY FI.FMFMT nA 1 A // 

\ *X f *HCn w 5> T * * X , A HA'PPF *47H / — NPPFS OFF I NINO CONSTRAINT DIRECTION- 
?/,*X.*HCnOFS, RX.SHOISPL.'iX.flHRriAT IPN,4X**HSTI FF / 

1 AX t frHNMMRFR ,ftX , 1HN ,RX , ?HNI . H X , ?HN .1 , R X » 7HNK , HX, 2HNL .AX , ?HKD , 3X * 

<* ?HKP*)IX , 1HR, 1 1 X ♦ 1HR , 11 X, 1HS ) 

700S FORMAT { // 7*>H FI.FMFM r LOAD MMLTIPUFRS// 

. OX , IMA .ox, 1HR f qx, INC. OX * 1H0 /4F10.4) 

7)00 FORMAT! I 7,S 1 1 0,^X .7 I* ,*X , 1 PTF ] 7. 7 1 
FMfl 


pnilNl 1 50 
ROHN 1160 
H0UMU70 
RPlINllRfl 
-RPIIN.il 90 
ROIJN 1700 

RmiMi? io 

R0UN1770 
RPUN1730 
R0UM1740 
RPUN1750 
RPI JN 1 ?A>0 


601 ‘b 


NASA-Langley, 1977 


pnp 


pn? 


pnp 


pop 


?n? 


pn? 


SflRRDin INF TRUSS ( A «MT01 ) 
niMPMSION A(MTf*T) 

wrttf! ft,?o?) 

STOP 

FORMAT (1Y,« PROGRAM FNTFRFO DUMMY SHAROHT | MF TRUSS 

Fwn 


SURROIITIMF RF AM (A.MTOT) 

OfMFMSIOM A(MTPT) 

WPTTF (ft.?n?) 

STOP 

FORMAT! T X • 1 PROGRAM FNTFPFD nilMMY SURROIITIMF RF AM 

fnh 


SUM ROUT |WF PI ANF (A.MTOT) 
niMFMSfON A(MT(iT) 

WRFTF (ft. pnp ) 

STOP 

FORMA T ( | X , • PROGRAM FNiTFRFD DUMMY SURROIITIMF PL ANF 
FMO 


SURROIITIMF SHF A R (A.MTOT) 

P ? MFMS I OM A(MTOT) 

WPTTF (ft, 70? ) 

STOP 

FORMAT! IV,' PROGRAM FMTFRFO DUMMY SURROIITIMF SHF AK 
FMD 


SURROUTINF SHF».MA,Mim) 

0 I MF MS I OM A ( MTPT ) 

PR | TF f ft %pnp ) 

STOP 

FORMAT MX. 1 PROGRAM FMTFRFO DUMMY SURROIITIMF SHFl.l. 
FMp 


ClinROiniMF nollMD ( A .MIOT ) 

DTMFNSTnw A(MfPT) 

WP JTF( ft, 70? ) 

STnp 

FORMAT I IX, » PROGRAM FMTFRFO MUMMY SURROUlINF Ml 'I INI) 
FMD 


• / / > 


'//) 


'//) 


♦// ) 


'// I 


' // ) 
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